in reply to Non-exclusive or in regexp?
Perhaps Lingua::En::MatchNames (or one of its dependencies) is what you want?