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

Hrm.. you could almost do 
s/\b([^aeiouy\W]+)\b/\U$1/g;

[download]
That will uppercase any words with no vowels... not perfect, but works for a number of them.

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

In Section Seekers of Perl Wisdom