$a=A;for$c(unpack"w*",'\x9c\xf1\xe7\xb4\x02\x82V\x00D\x88\xf1\xe2\xd0\x00\x06@v\xe1\x80\xd0\x00@\x12R\x83v\x81F\x9c\xb5\xc6\xf0\x00\x16\x10\x04XR\xe5\xc2\x80\x00\x00D\x81\x10F\x02'){$c&&print"@{[grep{1&($c/=2)}map$a.$_,A,E,H,I,M,O,U,Y,B..Z]} ";$a++}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).