Help for this page

Select Code to Download


  1. or download this
    if ($target =~ /\Q$matchmember\E/) {
    print "Match!\n";
}
  2. or download this
    if ($target =~ /\Q$matchmember/) {
    print "Match!\n";
}
  3. or download this
    my @matches = $target =~ /(\Q$matchmember\E)/g;
  4. or download this
    while ($target =~ /(\Q$matchmember\E)/g) {
   print "Found $1 at $-[1]\n";
}