Select Code to Download

foreach $name ( @names ){
    $name = ucfirst($name); # made first letter  
    $name =~ s/\_(\w)/\ uc($1)/ge; # Here is the point.  
    print "$name \n";
}

foreach $name ( @names ){
    $name = ucfirst($name); # made first letter  
    $name =~ s/_(\w)/ \U$1/g;
    print "$name \n";
}