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