if (lc($foo) eq lc($bar)) { ... }