<?xml version="1.0" encoding="windows-1252"?>
<node id="96624" title="Re: Writing highly obfuscated code in Perl" created="2001-07-13 23:11:01" updated="2005-07-19 14:08:39">
<type id="11">
note</type>
<author id="95662">
Wookie</author>
<data>
<field name="doctext">
While I admit to being very new to Perl - I find default/pre-defined variables to be a source of constant inspiration.  Using $_ $@ $| etc. can really confuse things.

Oh yeah - and overuse $_ - superfluously if possible - as an example from my first attempt I submitted today:
&lt;CODE&gt;
$_=_($_);$_+=$_;
&lt;/CODE&gt;
(_ is a sub that returns the input++) and now you can use any of the following - all to get 4:
&lt;CODE&gt;
$_+=$_;
$_=$_*$_;
$_=$_**$_;
&lt;/CODE&gt;

game(Wookie,opponent) eq 'Wookie' ? undef $problem : remove_limbs(arms,opponent);</field>
<field name="root_node">
20312</field>
<field name="parent_node">
20312</field>
</data>
</node>
