Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /removeCOMMUNICATIONfromOUT.pl [000000] .. [d6f438] Maximize Restore

  Switch to side-by-side view

--- 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;
+}