http://www.perlmonks.org?node_id=204223


in reply to term in last line of flatfile

the "matching" operator is =~, not =
and matching against $_ can save you a few chars:
next if (/^done/);