my $source = <<'PERSEVEROUS'; map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($`%12^$_?o:x)&($'/+5^$ a.$_?o:v125),0..s//<>/e./:/;print"@$_\n"for@c PERSEVEROUS my $out = unpack 'u',uc($source); print "eval lc pack u,'" . $out . "'";