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