in reply to Re: rename output file with system date
in thread rename output file with system date

So you're a perl-golfer? So why comes you missed this instead of your while-loop? 
print OUT grep!/774(0[346-9]|1[1-468])/,<IN>;

[download]

In Section Seekers of Perl Wisdom