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