or download this
while (<DATA>)
{
...
As usual, I'm overstating the case to knock a few neurons loose, but t
+he truth is usually somewhere in the muddle, uh, middle.
Of course, I reserve the right to make wholly stupid changes to Perl i
+f I think they improve the language.