in reply to RegExp, grabbing first name

Perhaps Lingua::EN::NameParse?