$string =~ s/(?:^|(?<=\s))(\w)/\U$1/g;