[a9a402]: removeCOMMUNICATIONfromTOC.pl Maximize Restore History

Download this file

removeCOMMUNICATIONfromTOC.pl    12 lines (10 with data), 190 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 =~ /\\unhbox/) {
$line =~ s/\\unhbox.*\\newline\s//;
}
print STDOUT $line;
}