Fun with operators

[Hue-Bond]

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@;

[cristian]

sub perlmonks {
        "Hue-Bond is crazy" if $_[0] =~/completely/;
}

print if $_= perlmonks("completely crazy");

print ",Obfus++";