These modules may help you a bit or maybe even provide a starting point: Lingua::Strfname and Lingua::EN::NameCase.

Hope this helps, -gjb-