in reply to Re: Correct case
in thread Correct case

Simpler: 
   s/\b(\w)/\u$1/g;

[download]

Abigail

In Section Seekers of Perl Wisdom