Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
($c=>$i)=(shift()=>shift);@i=split//=>$i;
...
print"\n".$s[$s<0?$e:$s];<.>;print${b@e=>$p};
for(;@s;$s^=pop@s){}
print$s;

Select or download this

------------
:Wq
Not an editor command: Wq