use subs map{uc,lc}"a".."z";AUTOLOAD{print+map{/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)