while( my $line = ){ ... }