$foo = 'This is a CAPITAL test, man';
$bar = 'IS A cap';
if (lc($foo) =~ lc($bar)) {
    print lc($foo), "\n", lc($bar), "\nYES\n";
}
else {
    print lc($foo), "\n", lc($bar), "\nNO\n";
}