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