<>=~s/.(.)/print$"&($_^$&^$1)|pack B8,bab.unpack b5 for$&,$1/ger