my $string = 'this is a string of text'; $string =~ s/\b(\w+)\b/ucfirst($1)/ge; print "$string\n";
hi! muxtah?
hi! muxtah?