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