http://qs1969.pair.com?node_id=474072


in reply to Capitalize the first letter of each word

Greetings all,
Yet another way to do it.
use strict;
my $text = "to say it once";
$text =~ s/(\w+)/\u\L$1/g;
print $text;

[download]
produces: 
To Say It Once

[download]

-InjunJoel
"I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo

In Section Seekers of Perl Wisdom