# Any system
binmode $fh;
local $/ = "\x0D\x0A";
while (<$fh>) {
   chomp;
   ...
}

##</code><code>##

# Windows only
while (<$fh>) {
   chomp;
   ...
}