in reply to Capitalize the first letter of each word

As I am not feeling pedantic today. Here is an answer.
print(join' ', map({ ucfirst() } split /\s/, "to say it once"), "\n");

[download]
-- gam3
A picture is worth a thousand words, but takes 200K.

In Section Seekers of Perl Wisdom