Help for this page
LINE: while (<>) { ... }
perl -ne'push @a, $_; END { print @a; }'
perl -e'@a = <>; print @a;'