#!/usr/bin/perl
my $string = quotemeta 'title';
my $slurp;
{
    local $/ = undef;
    open my $textfile, '<', 'test2.txt' or die $!;
    $slurp = <$textfile>;
    close $textfile;
}

while( $slurp =~ m/ ( .{0,25} $string.{0,25} )gisx / ) {	
    print "Hi";
	print "Found $1\n";
}
#/ \Q$wanted\E /x;