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