while ( my $line = <$fh> ) {...}