#!/usr/bin/perl
use common::sense;

my $pat1 = "TOP_PATTERN";
my $pat2 = "SEARCH_PATTERN";

my ($flag, $cache);
while (<DATA>){
    if ($flag){
        last if /$pat1/;
        print and next;
    }

    if (/$pat1/){
        $cache = "" and next if $cache;
        $cache .= $_ and next;
    }
    if ($cache){
        $cache .= $_;
        $flag = 1 and print $cache if /$pat2/;
    }
}

__END__
TOP_PATTERN
1
2
3
TOP_PATTERN
4
5
6
SEARCH_PATTERN
7
TOP_PATTERN
8
9