$lastname =~ s/^([a-z])/\u$1/;

##</code><code>##

$txt =~ s/\b(\w+)/\u\L$1/g;