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

##</code><code>##

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

##</code><code>##

while (<>) {
    ...
}

##</code><code>##

bash:~$ perl -nE '...'