It's nice, alas it has some problems with apostrophes and dashes.
perl -pe 's/[\s\.,]+/\n/g'
works better. Nowdays you could also get rid of the extra "tr" to convert to lower case and use the new-ish "-i" option to make uniq ignore case. That wasn't available in 1986, however.