if ($foo =~ /^$bar$/) { ... }
if ($foo =~ /^$bar$/i) { ... }
if ($foo =~ /\A$bar\Z/i) { ... }
if ($foo =~ /\A$bar\z/i) { ... }