To answer your immediate question:

print "Line $. Match ($misses) at $i, @$search [[";
print @$search[$i..$i+$find_len-1];
print "]]\n";
[download]