$re = "\.";

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

$re = qr/\./;

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