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