Help for this page
Select Code to Download
Select
or
download this
$string = "\u\L$string";
Select
or
download this
$string =~ s/([\s-]+)(.)/$1\u$2/g;