in reply to Splitting/joining on different characters

I'd just use: 
$name =~ s/\b(?<!\*)(\w+)/\u\L$1/g;

[download]
Muwahahahaha.
Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

In Section Seekers of Perl Wisdom