>perl -wMstrict -le
"my $s = 'foobazbazbaz foobazbazbaz';
 print 'match 1'
   if $s =~ m{ foo (?> (?:baz)+) baz }xms;
 print 'match 2'
   if $s =~ m{ foo (?> .* baz) baz }xms;
"