Daily Archives: December 15, 2009

my $string = ‘this is a string of text’; $string =~ s/\b(\w+)\b/ucfirst($1)/ge; print “$string\n”;