$s=time();
open(FH, "$ARGV[0]");
open(OUT, ">$ARGV[1]");
binmode FH;
binmode OUT;
$/=undef;
$line=<FH>;
$line=~s!(\d{3}\s(\/[^\n]*? f1)\s*([^\n]+sh\s*)+?\d{3}\s)ns!$1$2!gs while($line=~/(\d{3}\s(\/[^\n]*? f1)\s*([^\n]+sh\s*)+?\d{3}\s)ns/gs);
print OUT $line;
$e=time();
$r=$e-$s;
close(FH);
close(OUT);
print "Done...\nRuntime: $r seconds";