Perl module to fix the case of people's names