in reply to Capitalize the first letter of each word
$string =~ s/(?:^|(?<=\s))(\w)/\U$1/g; [download]
the lowliest monk