my $sub = sub{ pack "h*", join('', map { vec(unpack('u',",`````'X``````/\\#"), ord $_, 1) ? chr(ord $_ ^ 64) : '';} split //,$_[0]); };

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 = $sub->($string);
# $eval is =pod\n=cut\n&Internals::SvREADONLY(\undef,0); undef=sub{print$_[0]; undef;};

eval $eval;

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