Doesn't the solution I provided to your last question do exactly that?

Update: Actually, no. You need to remove the three lines mentioning $last:

my @history;
my $expect = 1;
while (<>) {
    chomp;

    my ($num) = /EVENT(\d+)/
        or next;  # Ignore bad input.

    if ($num == 1 || $num != $expect) {
        @history = ();
        $expect = 1;
    }

    if ($num == $expect) {
        push @history, "$_\n";
        if ($expect++ == 4) {
            print(@history);
            @history = ();
            $expect = 1;
        }
    }
}
[download]

The funny thing is that I didn't have those three lines originally since I had forgotten that part of your question when I first wrote up my reply.