join ' ', map {ucfirst} split / /, shift;

##</code><code>##

        join ' ', map { s/^(.)/\U$1/; $_ } split / /, shift

##</code><code>##

       (my $f=shift)=~s/(^| )(\w)/$1\U$2/g;
       # Doing it with lookbehind gets a little ugly:
       # s/(?:(?<=^)|(?<= ))(\w)/\U$1/g;
       $f;