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