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