Select Code to Download

substr($line, $pos1, $pos2-$pos1+1) = cleanse(substr($line, $pos1, $po
+s2-$pos1+1));

use strict;
my @pos = (0,5,15,20);

...
   print $line;
} # end while