Select Code to Download

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

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