local $/ = "\x0D\x0A";

   open(local *IN, '<', $filename)
      or die("Unable to open input file $filename: $!\n");

   binmode(IN);

   while (<IN>) {
      chomp;
      s/\x0A/ /g;
      ...
   }