Select Code to Download

use subs map{uc,lc}"a".."z";AUTOLOAD{map{print/j|p/
?uc:lc}${(caller!1)[3]}=~/.$/g;v32}(S.t)->(U\j),n(A
),(e,l~R)->(p!r->(E&O|H~t)),(E,r,q)((.))->(k\H,a^c)