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


my $fileContent;
open(my $fileHandler, $inputFile) or die "Could not open file '$inputFile' $!";
{
    local $/;
    $fileContent = <$fileHandler>;
}
close($fileHandler);



if($fileContent =~ /\b$beginString\b(.*?)\b$endString\b/s){
    my $result = $1;
    print $result;
}

print Dumper($fileContent);