# Discard the buffered lines.
            @buffer = ();

            # Print the matched line.
            print $line;

##</code><code>##

            # Discard the buffered lines.
            @buffer = $line;