while (my $line = $FH) {

##</code><code>##

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