if (lc $str1 eq lc $str2) { ... }

##</code><code>##

    if ($str1 =~ /^$str2$/i) { ... }