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