use English;
$_ = "foo a baz bar";

/foo       # Match starting at foo
 (?:       # Complex expression:
   (?!baz) #   make sure we're not at the beginning of baz
   .       #   accept any character
 )*        # any number of times
 bar       # and ending at bar
/x;

print "$_ \n";
print "  \$1 = $1 \n";
print "  \$2 = $2 \n";
print "  \$& = $MATCH \n";
print "  \$` = $PREMATCH \n";
print "  \$' = $POSTMATCH \n";
print "  \$+ = $LAST_PAREN_MATCH \n";