--- a
+++ b/removeCOMMUNICATIONfromOUT.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+use strict;
+use diagnostics;
+
+while (<STDIN>) {
+    my $line = $_;
+    if ($line =~ /COMMUNICATIONheightwidthwidthheight/) {
+        $line =~ s/COMMUNICATIONheightwidthwidthheight//;
+    }
+    print STDOUT $line;
+}