$ perl -le 'my $r = "bar"; print "yes" if "foobarbaz" =~ $r'
yes