recursive self modifying eval japh

[Anonymous Monk]

$_='",",/[J|]$/?m)^.J)?(m~"(.+?)"~):s](^(.)(.*\)\?p.*)|(\)\?)(.'
.'*))\|(.)]$4$2$6$3$5|]<<eval:s<([\w -%])(?=[^|]*$)><pack+q*c*,'
.'(ord$1)-++$i%3>eg!~eval#@|xslvuuipfem#pwht%uimwssd$yvyO'=>eval

it runs quite many times... how many is left as an excercise to the reader

/dh

[turnstep]

Very devious. I like it. The evals are a nice touch.

[Anonymous Monk]

I only sort of understand this code. Ok, I don't even come close... I get the first step, that you are seting the $_ var to this scalar, and then calling eval on it. Ok, but I don't understand the scalar, I see the two line break concatenations, but I don't see how you can have a close parens without an open parens. I suppose this is why we call it obfuscated, but I would very much appreciate it if some one could offer some clarification, as I think it might be useful to me. Thanks.

[Anonymous Monk]

I don't see a closing parens - I just see some very tricky matching delimeters *smirks* I hope this hint will lead you into the right direction.