Select Code to Download

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

$foo = "\Lfoo";

$foo = lc $foo;

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