while ( local $_ = <$fh> ) {...}