push(@dat,'push(@dat, abs())if(not(hex($_))or ($,cmp reverse()));'
.'eval$l;$,= chr(74);$_=pack(v,$_); reverse();push(@dat,"hda|v? r'
.'ev|xo|cm|rp|se|elsif|eval");$_=@dat[0];s/.{136}$//;s/b/el/;s/ch'
.'/h/;s/^.|_|\d|[^\w ]//g;s/$dat[2]//ig;print$,.$_;');eval@dat[0];