Help for this page
if ( lc($foo) =~ lc($bar) ) { ... }
if ( index( lc($foo), lc($bar) ) != -1 ) { print "Yes\n"; } else { print "No\n"; }