in reply to Capitalize the first letter of each word

Whee! 

my $start   = 'to say it once';
print join ' ', map { ucfirst($_) } split '\s', $start;

[download]
Larry Wall is Yoda: there is no try{}
The Code that can be seen is not the true Code

In Section Seekers of Perl Wisdom