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

##</code><code>##

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