my $sub;
$sub .= join'',unpack'C/(C.*/X/xa@1)',q`"BC8D%5/.31420-A69=(#:*$+<@;?)&',>7""$''((*,,;<=>AADTaaabchijkmnopsu{`;
$sub .= join'',unpack'C/(C.*/X/xa@1)',q`">DC95'A<?36;(%B&-#4*.=@8)$2+/0,17:$$''((())),,,1?_aacccdehknoppruuv{`;
$sub .= join'',unpack'C/(C.*/X/xa@1)',q`"?'=@:(#8)721*3%&CA><;B./-$9506+,D4$$''(()))),//046:;[]^__diloprrst}}`;

my $string = <<'STRING';
$SPW&VTV!P$SSVUWTW!PVRYT%VTWUVRW%VQV#
VSW!S!SSUVWRUUTQTTT&T%T#TYUXR#UUW%VTV
UVVV#RPSYR"SPRUW%VTVUVVV$SSWUWRV"WPWR
WYV%VTWTR&U"UPS$U"SPRUW%VTVUVVV"S$W"S
STRING

my $eval = (eval $sub)->($string);
# $eval is &Internals::SvREADONLY(\undef,0); undef=sub{print$_[0]; undef;};

eval $eval;

my $h = undef;
$h->("Just another Perl hacker\n");

__DATA__
,`````'X``````/\#