if ( index( lc($foo), lc($bar) ) != -1 ) {
    print "Yes\n";
} else {
    print "No\n";
}