Select Code to Download

#!/usr/bin/perl -w
$str="BATCATDATEFEAT";
$A=0;$T=0;
...
print RESULT "\n T=$T ends at ",pos $str,"\n";}
close(RESULT);                    # Line 17  
exit;

#!/usr/bin/perl -w
use strict;

...
   $T++;
   print $fh "\n T=$T ends at ",pos $str,"\n";
}