<?xml version="1.0" encoding="windows-1252"?>
<node id="571398" title="The Undefinite Japh" created="2006-09-06 04:52:45" updated="2006-09-06 00:52:45">
<type id="1588">
obfuscated</type>
<author id="272239">
liz</author>
<data>
<field name="doctext">
&lt;code&gt;
@x=split$y,q{Tie Just Another Perl Hacker
First};$"=$y,;eval uc("*a'@x[29,18,33,24,
22]").'=sub{$x[$y++],};'.uc("*a'@x[0..2]"
).(ref\$y).'=sub{bless\$y,$x[9]}';($a=$b=
"Internal::READONLY\${\\undef},0")=~s#::?
#s::Sv#x;eval$a;tie${\undef},$x[9];$a=();
$b=();$c=();$d=undef;print@a[99..123]=();
&lt;/code&gt;
Inspired by Juerd's undefined presentation at YAPC::Europe 2006.
&lt;P&gt;
Liz</field>
</data>
</node>
