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