Hi,

this code seems to do the trick quite effectively:

while (<>) { $a[$i++%6] = $_; print $a[$i%6] if /match/; }

Just change the if condition to something reasonable.

-mk