$/ = "\r\n";

while(<FILE>) {
   chomp;
   blabla;
}

##</code><code>##

open FILE, "dos2unix $file|" or die;