my $line; while ($line = <>) { # stuff }