my $line;
while ($line = <>) {
    ...