fix quantifier modifier thinko

Discovered by 宋文泰 in https://rt.perl.org/Ticket/Display.html?id=122904

src/regexes.pod

@@ -522,7 +522,7 @@ The editor in me wants to fix this example to use the serial comma.
 
     my $ingredients = 'eggs, milk, sugar and flour';
 
-    if $ingredients ~~ m/(\w+)% % [\,\s*] \s* 'and' \s* (\w+)/ {
+    if $ingredients ~~ m/(\w+)+ % [\,\s*] \s* 'and' \s* (\w+)/ {
         say 'list: ', $/[0].join(' | ');
         say 'end:  ', $/[1];
     }