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/);

[download]

In Section Seekers of Perl Wisdom