while (defined( my $line = <>)) { }