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