522 $ perl -we'my $x = "bar"; print "yes" if "fooBarbaz" =~ /\u$x/x' yes