while ( my $line = <$fh> ) {
    # mache etwas mit $line
}