Perl One Liners

* -n loop over input

* -l strip newlines on input, but print them out with output

* -a enable autosplit, resulting in array @F