i'm probably completely off, but it seems to iterate over $_, slowly changing it as it goes along. The two important parts seem to be:

# this increments $R, which tells us which character we're going to pr
+int
|`i($z)    (?{$R++,$q=6)

# it tells us that through this snippet:
`p($z)(?{print(chr 120-$R),$R=0,$q=7})
[download]

So whenever the substitution matches a `i($z) it'll increment $R, and once that gets incremented enough times the RE will match (at some point before matching `i again) `p($z).

$z seems to just match any number of backticks (and $d is set to 2, although this doesn't need to happen) or any number of characters, and $d is set to zero. $d is important because (if i'm reading this right) when there are only backticks left, $z won't match because of the $d flag. This is what will eventually stop the do{}while loop (i think).

The only thing i'm hazy about (other than the whole thing :-) is %bind. Because of it's use you can't use strict, because i don't see it in the built-ins in camel3. And i'm not sick enough to looptrace far enough to find out what $14 and $17 and whatnot else might actually be to see what it's up to.

On the other hand, since this obfuscation completely breaks the debugger (causing it to drop core on my machine), i can't get more details without trying to a) enter Dominus brain or b) become god. Neither seems really possible at this point.

Kudos and ++, this is a work of art.

jynx

PS feel free to /msg or node me that i'm completely wrong, because i'm guessing i am...