# Assuming Perl 5.14+ $x = $name =~ s/^(.)/\u$1/r;