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@,,
This is a nicer variant of [id://577876] using a simple idea from [id://309529].
perlmonks.org content © perlmonks.org and ambrus
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03