or doesn't begin with $tie (a sequence of 8 tabs)
Actually if you look closely its actually space-tab x 8. :-) I made the same mistake at first too. Its kinda cute because it represents '01' x 8. Which is longer than any of the subsequent encoded lines, which are all at most 9 chars + /n.
my $tie = " \t"x8;
Locally change the __WARN__ handler to dirty() which returns true if a warning matches non-whitespace.
The point is why though. I beleive the intention is suppress any warnings generated by the following code, regardless as to whether it actually includes a use warnings or what not. Of course if __WARN__ is overriden later theres a problem.. :-)
<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...