note imp I recently learned how to find out what Perl thinks I mean by my code. The magic of [cpan://B::Deparse]. This answered some mysteries, for example why this code will not stop on values that are seen as false: <code> while (<>) { } </code> When writing that loop explicitly I would be testing it like this: <code> while (defined( my $line = <>)) { } </code> It turns out that is exactly what perl is doing as well, as seen below: <code> perl -MO=Deparse -e 'while (<>) {}' while (defined($_ = <ARGV>)) { (); } </code> It's also interesting to see what the parser thinks about other code, such as: <code> perl -MO=Deparse -e ' if(1) {print "true"}' do { print 'true' }; </code> And <code> perl -MO=Deparse -e ' print "true" if 1' print 'true'; </code> And it is useful for seeing what some of the code from the Obfuscation section is actually doing. 567774 567774