...
while (<$FH>){
   {
      local $/="\r\n";
      chomp;
   }
...
}
...