Fun with operators

This is the first JAPH that I'm not embarrased to publish 8^), actually my third one.

s bb q$push@;,chr($.$str->[$_].chr($_%($-||=1<<1|1)++?($_-1)%($-
-1)?$-*11+1:$-*11-1:$-*24-2).ord(($/,$;,$",$[)[$_%$---]).')' bee
foreach$|..@{$str=[map{hex}unpack q$H2$x($]*$]),pack'H*',q 8408.
q 0599344167d4e3f7e7445a22a348542623c48316d7745a2260]}-1;print@;
[download]

--
David Serrano

Comment on Fun with operators Download Code

Replies are listed 'Best First'.
Re: Fun with operators by cristian (Hermit) on Sep 26, 2005 at 21:09 UTC
`sub perlmonks { "Hue-Bond is crazy" if $_[0] =~/completely/; } print if $_= perlmonks("completely crazy"); print ",Obfus++";` [download]	[reply] [d/l]