$foo =~ tr/A-Z/a-z/;

##</code><code>##

$foo = "\Lfoo";

##</code><code>##

$foo = lc $foo;

##</code><code>##

if ($foo =~ /^$test$/i) { ... }