${*A{SCALAR}}=q!UuX!,$_=$A.'reVERSAL',s/uX//;
y/er/IN/;$"=qq= $_'=.++($WH='AT').'TOLOAD',$,=q; ;or die;@qq=qw
!sub {$_=$ ;/::/&&print($`,$',$\)||die ; };
!;$_=qq;@qq;;eval, hacker perl another just;
--In reply to call it a work in progress by educated_foo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |