Print lines between multi-line regex pattern

Select or download this

    my $beg = qr/^\s*APP>\sSTART_PARTU_8X8\n\s*APP>\sPARTITION_SPLIT/;
    my $end = qr/^\s*APP>\sEND_PARTU_8X8/;
    if (/$beg/../$end/){
    print "$line\n";
    }

Select or download this

    APP> START_PARTU_8X8
    APP> PARTITION_NONE
...
    16X16
    4X16   
    APP> END_PARTU_8X8

Select or download this

    APP> START_PARTU_8X8
    APP> PARTITION_SPLIT

Select or download this

   APP> END_PARTU_8X8

Select or download this

Output:

...
    START_PARTU_4X4
    START_PARTU_4X4
    START_PARTU_4X4

Select Code to Download