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

Faster and easier to read. (Shorter without obfuscation means less for the human to parse.)

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.