I wonder if Lingua::EN::Keywords would be helpful in automating this? It's not very sophitisticated, but it has the strong advantage of being already written. :)