Select Code to Download

local $/ = 'END OF REPORT';
while (<DATA>) {
...
        print "$line\n" if $line =~ /\*\sparameters after change\s=\*/
+ .. $line =~ /\*\sNRG location\s=/;
    }
}

local $/ = 'END OF REPORT';
while (<DATA>) {
    print "$1\n" if m/(^\*+\sparameters after change\s=\*+\n.+?^\*+\sN
+RG location\s=\*+$)/ms;
}