while ($linein = <INTFILEin>){
   chomp $linein;
   print FMTFILE "$linein\n";
   }