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