What you're looking for is Lingua::EN::NameParse. Parsing names is a very fuzzy business at best, but the Lingua::EN::NameParse module does a fairly good job of it. Don't expect the output to be perfect.