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