while ( <RULE> ) {
  if (/^STMT/.../^STMT/) {
    print unless /^STMT/;
  }
}