use strict ;
use warnings ;
my $rule=1 ;
while(<DATA>) {
if(/RULE=$rule/../^END$/) {
print
}
}