$str =~ s/\b(\w)(\w+)\b/\U$1\L$2/g;