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