>>498
print map chr(ord ^ 0x13), unpack 'A' x length, $_ while read DATA, $_, 1024;