Select Code to Download

*$ = sub{
    $a=q;}die;;
...
};
s[]{82G5S="!A;F]T:&5R(%!E<FP\@:&%C:V5R}six;
die &$ => $/;

*$=sub{
    unpack "u", $_;
};
$_='82G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R';
die &$, $/;

die unpack ("u", '82G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R'), $/;