http://www.perlmonks.org?node_id=587780


in reply to I post to Perlmonks anonymously...

...with a paper bag over my head for added effect. 



$\=" ";$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}}

[download]

In Section Past Polls