Help for this page
while ( <RULE> ) { if (/^STMT/.../^STMT/) { print unless /^STMT/; } }
/^STMT/.../^STMT/ and !/^STMT/ and print while <RULE>; __END__ ... C Y Z
if (/^STMT\d+=BEGIN/../^STMT\d+=END/)