Yes, I mentioned that in my writeup. But the fix is pretty straightforward, and is presented in the code below:

use strict;
use warnings;


my @buffer;
my $re = qr/10/;

while (<DATA>) {
    if ( $_ =~ $re ) {
        @buffer = ();
        my $count = 0;
        while( defined( my $discard = <DATA> ) and $count++ < 2 ){
            if( $discard =~ $re ) { $count = 0; }
        }
    } else {
        push(@buffer, $_);
        if( @buffer > 5 ) {
            print shift(@buffer);
        }
    }
}
print @buffer;


__DATA__
Line 01
Line 02
Line 03
Line 04
Line 05
Line 06
Line 07
Line 08
Line 09
Line 10
Line 11
Line 12
Line 13
Line 14
Line 15
Line 16
Line 17
Line 18
Line 19
Line 20

[download]

Dave

In reply to Re^3: Regex question by davido
in thread Regex question by jamsda

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.