perl -e 'print sort {reverse lc($a) cmp reverse lc($b)} <>' /usr/share/dict/words