Select Code to Download

$re = "\.";

...
foreach (qw( . a )) {
   print("$_ ", /$re/ ? "matches" : "doesn't match", " $re\n");
}

. matches .
a matches .
. matches (?-xism:\.)
a doesn't match (?-xism:\.)

$var = '...';
$re = qr/abc\Q$var\Eghi/;
...
)) {
   print("$_ ", /$re/ ? "matches" : "doesn't match", "\n");
}

abcdefghi doesn't match
abc...ghi matches