I'm looking for a string in a file and trying to print if found. It's late and I'm sure I'm missing something. Is obviously not working. Here's the script and file

#!/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;
[download]

text file contains

test test test title test test test test