$ perl -le 'print "foo" if "zoombots" =~ m/baz||bar/'
foo