if ($target =~ /\Q$matchmember\E/) {
    print "Match!\n";
}

##</code><code>##

if ($target =~ /\Q$matchmember/) {
    print "Match!\n";
}

##</code><code>##

my @matches = $target =~ /(\Q$matchmember\E)/g;

##</code><code>##

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