$name =~ s/(?:\s|^)(\w)/uc($1)/eg;