You may find the module Lingua::EN::MatchNames useful, although I believe it's intended for matching names of people. I recall that The Perl Journal had an article on this module a few issues back. (As I'm writing this, the TPJ website does not yet have the old articles back online.)