With stop words and parts of speech tagging I saved 2604 items. I tried using WordNet as a thesaurs but it was slow and I couldn't quite find out how to make it do what I wanted and didn't care enough to dig further.

It did make me wonder if a Lingua::EN::Stopwords would be useful.