my $foobar = regex2 '\bfoo\W+(?:\w+\W+){0,6}bar\b' ;