Help for this page
while ( my $line = <STDIN> ) { ... }
while ( my $line = <> ) { ... }
while (<>) { ... }
bash:~$ perl -nE '...'