in reply to Converting letters from uppercase to lowercase.

You can use a regex:

 my $line = 'RONNIE NUNN|RON OLESIAK|PHIL ROBINSON';
 $line =~ s/\b(.)(\w*)\b/\u$1\L$2/g;

[download]

In Section Seekers of Perl Wisdom