Perl routines for manipulating a person's name