my $beginString = "SEARCH";
my $endString = "TEST";

my $fileContent;
open(my $fileHandler, $inputFile) or die "no read '$inputFile' $!\n";

while (<$fileHandler>) {
    print if /$beginString/ .. /$endString/;
}

close $fileHandler;