note $code or die <p>[http://dev.perl.org/perl6/exegesis/3|I can't wait until we have] <code>$_ //= ''</code></p> <p>In Perl 6, this would probably be written:</p> <code> ($x, $y, $z) ^//= ''; </code> <p>Now that is *really* sweet.</p> ___ <a href="mailto:$code_or_die@simonflack.com">Simon Flack</a> (<A HREF="/index.pl?node=%24code%20or%20die&lastnode_id=14444">$code or die</A>)<BR><TT> $,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,<BR> =~y'_"' ';eval"die";print $_,lc substr$@,0,3; </TT> 143961 144044