##### make the first letter cap, and the rest is lower case.

$outFirstname =~ s/\b([A-Z]\w+)/ucfirst(lc($1))/ge;
$outLastname =~ s/\b([A-Z]\w+)/ucfirst(lc($1))/ge;