@a = qw(!57Just_Ano th60er_Perl 38_Hacker ____37_\);

$a67=$b+-$$;    $aa58=$bb;   $a[_]=82+$aa+$b;
until$aa64<$$aa  $a=$b+-66*$$aa; $a[$b]=48-_;
$a[$aa]=82;$a 72=$a;; $ab=66+--$bb 40=$c<$b;;
34<$a+$b- 80+$a/_; $a[$b++]=64%$bb;; $a=60+$d
$c[$a]=70+$a 53-$x;  $a86=$$_-$d;  $aa57=$ab;
$c[$aa]=55*_;  $c[$bb]=41*$bb; $mm=83+$_-$$_;
$a=57*$b/$_-$a 50*$_[_];     $mm=$aab+32-$$_;
$aa64=$f  -$a48+_;        $jj=39/$a a64+-$mm;
$fa73=$f-$c;;   $g=34*$+$h _70*$_+-$a 72-$$_;

$a=$b+\(81-$b++);
foreach (@a) { @_ = reverse $_ =~ /(\D+)*(\d)(\d)(\D+)/;
$_[1] ^= $_[2]; $_[2] = $_[1]^ $_[2]; $_[1] ^= $_[2]; $u
= join '', @_[1,2];  $_[1] = pop(@_); $b =  $#_---2; for
( $b..$#_) {push @x, $b  .= length($_[$_] ); } $x[$#x] =
pop(@x); $a[$a++] = pack "C",$u; } print unpack "u",eval
unpack "u",join'',@a ;