$string = s/\b(\w+)\b/ucfirst($1)/eg;

##</code><code>##

$string = s/(?<![-'])\b(\w+)\b/ucfirst($1)/eg;