while ( defined ($_ = <DATA>) ) {
    if (/RULE=$rule/../^END$/) {
        chomp $_;
        if ($_ =~ /^NUMOFRULES/) {
          # Get the number of rules
          @rulenos = split(/=/);
        }
	my $e = $rulenos[1];
        if (/^STMT1=BEGIN$/../^STMT$e=END$/) {
	   if ( !($_ =~/^STMT/)) {
		print $_;
	   }
	}
#         for ($i = 1; $i <= $rulenos[1]; $i++) {  
#            if (/^STMT$i=BEGIN$/../^STMT$i=END$/) {
#               if ( !($_ =~/^STMT/)) {
#                 print $_;
#               }
#            }
#         }
     }
} 

__DATA__
RULE=test
BEGIN
NUMOFRULES=2
STMT1=BEGIN
A
B
C
STMT1=END
STMT2=BEGIN
X
Y
Z
STMT2=END

##</code><code>##

use strict;

my @data = <DATA>;
foreach(@data){
	chomp;
	if(/START1/../END1/){
		print "1: $_\n";
	}

	if(/START2/../END2/){
		print "2:$_\n";
	}
}
print "\n\n";
foreach (@data){
	foreach my $i(1..2){
		if(/START$i/../END$i/){
			print "$i:$_\n";
		}
	}

}

__DATA__
START1
A
B
C
END1
START2
X
Y
Z
END2

##</code><code>##

__OUTPUT__
1: START1
1: A
1: B
1: C
1: END1
2:START2
2:X
2:Y
2:Z
2:END2


1:START1
2:START1
1:A
2:A
1:B
2:B
1:C
2:C
1:END1
2:START2
1:X
2:X
1:Y
2:Y
1:Z
2:Z
1:END2
2:END2