print"@{[grep{/[ABEHIMOUZ]/&&vec'\xdb9\xceG\x04\x01\x0c\x80(*\x8e\xa3\x05\x81FD\x01\x88\x02\xc2 \xd0\x88Q#\xa2 .\x8e\x1bk|E\x88\x04\xb1F\x05\x84e\x10\x00Q\xc8E\x03',$i++,1}AA..ZA]}"=~s/ .Z /
/gr
Note that non-ascii characters in the above source code will be escaped (such as \x9f).