Re^3: Capitalize First Letter of Each Word

[fishbot_v2]

It does, except it doesn't work:

my @a = ("a  sTrinG\n" );
s#(.)(\w+ ?)#\U\1\L\2#g for @a;
print @a;
__END__
a  string

Two things are happening here: The first is that this requires each word to be two characters or more (so it fails on the initial "a"). The second is that the . can match a space, so " sTrinG" fails because \1 contains a space.

I suggest

s{ \b(\w+) }{\u\L$1}gx;

[holli]

s#\b(\w)(\w* ?)#\U$1\L$2#g

does the trick.

[suaveant]

That finishing space is completely extraneous... the \b at the front basically is as well. Space is not a word char, so will be just fine if left alone. The \w at the beginning is basically implying \b, since it will only start to match where a word char is.