my $string = 'string to search for';
open (TEXTFILE, 'searchfile.txt');
$_ = join('',<TEXTFILE>);
close (TEXTFILE)

while (/(.{0,10})$string(.{0,10})/gis) {
  print "Found: $1$string$2\n";
}