#!/usr/bin/perl

use Modern::Perl '2014';

my @HANDLES = map {
        open my $HANDLE, "<", $_
            or die "Could not open $_: $!\n";
        $HANDLE;
    } @ARGV;

foreach my $HANDLE (@HANDLES) {

    while(<$HANDLE>) {
        chomp;
        next unless /^PP_START$/ .. /^PP_END$/;

        say;

      }
}