How can I capitalize the first letter of each word in a string in Perl?

September 25, 2023 by Tarik

As @brian is mentioning in the comments the currently accepted answer by @piCookie is wrong!

$_="what's the wrong answer?";
s/\b(\w)/\U$1/g
print;

This will print “What’S The Wrong Answer?” notice the wrongly capitalized S

As the FAQ says you are probably better off using

s/([\w']+)/\u\L$1/g

or Text::Autoformat