I'm using WWW::Yahoo::KeywordExtractor for this. It shunts the work off to a third party, but if you don't mind the loss of control, it takes very little time to implement.