<?xml version="1.0" encoding="windows-1252"?>
<node id="558718" title="Unbalanced, Introspective Japh" created="2006-06-30 21:41:09" updated="2006-06-30 17:41:09">
<type id="1588">
obfuscated</type>
<author id="465654">
liverpole</author>
<data>
<field name="doctext">
"Unbalanced" because of the unmatched parentheses, braces, and brackets.&amp;nbsp;&amp;nbsp;"Introspective" because ... well, you'll have to figure that out for yourself.
&lt;p&gt;This works with Perl version 5.8.6 (in Linux), and 5.8.7 (in Windows), and possibly with other versions of Perl (though I can't be sure).
&lt;p&gt;My apologies if this has been done before (and please let me know if so).&amp;nbsp;&amp;nbsp;I came up with the idea just this evening, but one can never be sure whether or not similar prior art exists.
&lt;code&gt;
( $ ||=  open$ ) ,$ ^X) ;; X :;
{ $ ;+=  print if ($_ = lc getc $))  eq# }
( split$ ,,q#- just another perl hacker# )
[ $ ;];  eof$  ( ?die$ /: redo } 060630# ]
&lt;/code&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-465654"&gt;
&lt;hr /&gt;
&lt;font size="1"&gt;
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
&lt;/font&gt;
&lt;/div&gt;&lt;/div&gt;</field>
</data>
</node>
