Select Code to Download

use warnings;
use strict;
...
if ($data=~$regex) {
    print $1;
}

use warnings;
use strict;
...
    }
} continue { $prev_line = $line }
close $fh;

    START_PARTU_4X4
    ........
...
    ........
    START_PARTU_4X4
    ........