while ($target =~ /(\Q$matchmember\E)/g) {
   print "Found $1 at $-[1]\n";
}