while (<F1>) {
      s/[\n\r]//g
      print OUT "$_\n";
}