if (lc $str1 eq lc $str2) { ... } [download]
if ($str1 =~ /^$str2$/i) { ... } [download]
In reply to Comparing strings case insensitive by zemane