Another way is to get fancy with map and split.

This assumes that the data is in $_, like from a (<FH>) read...

print join "\n",
   map{ join " ",map{ ucfirst(lc) } split / / } split /\|/;
[download]

Or assign to an array:

@array = map{ join " ",map{ ucfirst(lc) } split / / } split /\|/;
[download]

Sorry if it is a little obfuscated, but I think I still have a little of it in my blood from the weekend ;)

This is really nothing more than mapping the ucfirst and lc onto the split of a split. I found I had to do it this way to avoid the dreaded implicit split to @_ depricated message.

D a d d i o