$_=0x4A;$*=$|+=1;push@_,$_;push@_,$*;push@_,$|;undef$_;$_+=$_[0];sqrt;#*
oct;$_=hex;push@_,$_;$_[1]+=$_;undef$_;$_.='&';eval;$_=+$@=~y/syntax //;
$,=3;$_=hex;push@_,$_;$_=substr($_,$*);$_[$_]=$_[$_-$*]-$_;push@_,$**#$*
hex(42);$_[$#_]--;push@_,$_*hex(37);$_=$| x $,--;push@_,$_;push@_,$_[$,#
+$*];$_=$,++*hex($,--x$,);$_+=$|+$|;push@_,$_;$_-=++$,;push@_,$_;$_=$_#$
[--$,]-$*;push@_,$_;$_=$,.($\-$\);$_=hex;push@_,$_;substr($_,$\)=$,*$, +
$*;$_.=$\-$\;$_=hex;push@_,$_;$_=$*.($\-$\);push@_,$_[$_];push@_,$_[++#*
$_];undef$_;$_+=hex($,*$,.($\-$\))+hex($,.($\-$\))+$,*$,*$,+$,*$,;push@_
,$_;$_=(ord$\.'/')+$*;$_=hex$,.chr;push@_,$_;$_=hex((hex)-$,);push@_,$_;
$/=3+3;$_=hex($*+($/ . 0));push@_,$_;$_=$_[($, . 0)-$*]+2;push@_,$_;$_=#
$/.'b';$_=hex;push@_,$_;$_=$_[$#_]-++$,*$,--;push@_,$_;$_=$/+$*.$,;$_=+#
hex;push@_,$_;map{print(chr)}@_;