{
   undef local $/;     # with localising
   open (FH, $filename);
   while(<FH>) {
      blah
   }
}