http://www.perlmonks.org?node_id=515385


in reply to What one-liners do people actually use?

From my aliases file: 
alias lssize="ls | perl -e 'print for sort {length (\$a) <=> length (\
+$b)} <>'"
alias L="ls -l  | perl -pe 's/^(.{78})...*/\$1>/;' | page"

[download]
But I write more one-liners in the shell, or in AWK.
Perl --((8:>*

In Section Seekers of Perl Wisdom