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.