LINE: while (<>) { ... }

##</code><code>##

perl -ne'push @a, $_; END { print @a; }'

##</code><code>##

perl -e'@a = <>; print @a;'