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";
    }