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

##</code><code>##

/^\Q$bar\E\z/i

##</code><code>##

if (lc($foo) eq lc($bar)) { ... }