$s = "word1 word2 word3";
$s =~ s/\b([A-Za-z]+)\b/\u\L$1/g