$\=" ";$u=0;$w=0;x(qw/4A 16 07 86/);sub x{while(@_){$u**=$w?$w:$#_; print map{$w<$u?chr(hex shift):chr(hex reverse(shift))}$_;$w+=length%2 +!=1?-1:1}}
In reply to Re: I post to Perlmonks anonymously...
by Andrew_Levenson
in thread I post to Perlmonks anonymously...
by liverpole
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |