Re: Capitalize First Letter of Each Word

[gube]

 @a = 
 ("THIS IS TESTING",
"JOE MARCONES",
"RESIDENTIAL MAINTENANCE COMPANY",
);
s#(.)(\w+)( )?#\U\1\L\2\3#gsi for @a; 
print join "\n", @a;

[holli]

2 points.

1. It is save to use the ? without braces if the optional part is a single char.
2. No need for the i and s modifier

So that boils down to

s#(.)(\w+ ?)#\U\1\L\2#g for @a;

which looks actually nicer than my original post.

[Anonymous Monk]

I just need to trough this here as well.
What if I have some uncials like, "LTD" at the end of the string or on the string and it couldn't be changed

[holli]

I don't get you. What on earth is a "uncial"?

[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.