local $/ = "\r\n"; # read with Windows-style endings
while (<FH>) {
   print "Found: $_"; 
}