[d6f438]: / removeCOMMUNICATIONfromOUT.pl  Maximize  Restore  History

Download this file

12 lines (10 with data), 231 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
#!/usr/bin/perl
use strict;
use diagnostics;
while (<STDIN>) {
my $line = $_;
if ($line =~ /COMMUNICATIONheightwidthwidthheight/) {
$line =~ s/COMMUNICATIONheightwidthwidthheight//;
}
print STDOUT $line;
}