in reply to Case sensitive
$foo =~ tr/A-Z/a-z/; [download]
$foo = "\Lfoo"; [download]
$foo = lc $foo; [download]
if ($foo =~ /^$test$/i) { ... } [download]