You might want to give Lingua::EN::NameParse a try. It's been a while since I've used it but I seem to recall it being able to accomplish something similar to what you are attempting with your regex.

-- vek --