#!/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $file = "t.txt";

local $/ = "END OF REPORT\n";
open IN, "<", $file or die "IN: $!\n";

while  (<IN>) {
        print if /\*\sparameters after change\s\=/ .. /\*\sNRG location\s\=/;
}