obfuscated
ambrus
<c>
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@,,
</c>
<p>
This is a nicer variant of [id://577876] using a simple idea from [id://309529].