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