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


in reply to Getting Fed Up with ActiveState

Is this something I have to worry about doing trivial scripting, or will it only apply if and when I have some real work to do?
$\=" ";$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}}

Replies are listed 'Best First'.
Re^2: Getting Fed Up with ActiveState
by syphilis (Archbishop) on Dec 05, 2006 at 23:27 UTC
    or will it only apply if and when I have some real work to do?

    There's a good chance it won't apply to you even if/when you do have "some real work to do".

    Cheers,
    Rob