use warnings; use strict; @,=unpack"C*","mG\e:*\cZM\b?~O\xf".
"*qGH_t2#OS/HU\ckE\34.OM\b";for$,(0..4){1<<$,&$_,or$,[uc]+=$,
[2**$,+abs]-=64*($,[lc]*=2),for+0..31}print+chr($_%127)for@,,