$string = "\u\L$string";

##</code><code>##

  $string =~ s/([\s-]+)(.)/$1\u$2/g;