+Randall Munroe (xkcd) commits the error of a Useless Use of Cat:
cat wordlist.txt | perl -pe 's/^(.*)$/\L$& \U$&/g' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' '2223334445556667777888999' | grep -P "(.)\1\1\1\1\1"
{sigh}
(reference: http://partmaps.org/era/unix/award.html)