in reply to Re^2: Capitalize First Letter of Each Word
in thread Capitalize First Letter of Each Word

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

[download]

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;

[download]

Replies are listed 'Best First'.
Re^4: Capitalize First Letter of Each Word
by holli (Abbot) on Jun 30, 2005 at 14:14 UTC 
    s#\b(\w)(\w* ?)#\U$1\L$2#g

    [download]
    does the trick.


    holli, /regexed monk/
[reply]
[d/l]
      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.

                      - Ant
                      - Some of my best work - (1 2 3)

[reply]

In Section Seekers of Perl Wisdom