$a=A;for$c(unpack"w*",'œñç´‚VDˆñâÐ@vá€Ð@RƒvFœµÆðXRåÂ€DF'){$c&&print"@{[grep{1&($c/=2)}map$a.$_,A,E,H,I,M,O,U,Y,B..Z]} ";$a++}