This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Handle /[#]/ and /[(?#]/ with code blocks
[perl5.git] / t / re / re_tests
1 # This stops me getting screenfulls of syntax errors every time I accidentally
2 # run this file via a shell glob.  The full format of this file is given
3 # in regexp.t
4 # Prior to the implementation of autoloading of \N{}, tests that used \N{name}
5 # could not go in this file, and were farmed out to other .t's, where they
6 # remain
7 #
8 # pat   string  y/n/etc expr    expected-expr   skip-reason
9 __END__
10 abc     abc     y       $&      abc
11 abc     abc     y       $-[0]   0
12 abc     abc     y       $+[0]   3
13 abc     xbc     n       -       -
14 abc     axc     n       -       -
15 abc     abx     n       -       -
16 abc     xabcy   y       $&      abc
17 abc     xabcy   y       $-[0]   1
18 abc     xabcy   y       $+[0]   4
19 abc     ababc   y       $&      abc
20 abc     ababc   y       $-[0]   2
21 abc     ababc   y       $+[0]   5
22 ab*c    abc     y       $&      abc
23 ab*c    abc     y       $-[0]   0
24 ab*c    abc     y       $+[0]   3
25 ab*bc   abc     y       $&      abc
26 ab*bc   abc     y       $-[0]   0
27 ab*bc   abc     y       $+[0]   3
28 ab*bc   abbc    y       $&      abbc
29 ab*bc   abbc    y       $-[0]   0
30 ab*bc   abbc    y       $+[0]   4
31 ab*bc   abbbbc  y       $&      abbbbc
32 ab*bc   abbbbc  y       $-[0]   0
33 ab*bc   abbbbc  y       $+[0]   6
34 .{1}    abbbbc  y       $&      a
35 .{1}    abbbbc  y       $-[0]   0
36 .{1}    abbbbc  y       $+[0]   1
37 .{3,4}  abbbbc  y       $&      abbb
38 .{3,4}  abbbbc  y       $-[0]   0
39 .{3,4}  abbbbc  y       $+[0]   4
40 \N{1}   abbbbc  y       $&      a
41 \N{1}   abbbbc  y       $-[0]   0
42 \N{1}   abbbbc  y       $+[0]   1
43 /\N {1}/x       abbbbc  y       $&      a
44 /\N {1}/x       abbbbc  y       $-[0]   0
45 /\N {1}/x       abbbbc  y       $+[0]   1
46 \N{3,4} abbbbc  y       $&      abbb
47 \N{3,4} abbbbc  y       $-[0]   0
48 \N{3,4} abbbbc  y       $+[0]   4
49 /\N {3,4}/x     abbbbc  y       $&      abbb
50 /\N {3,4}/x     abbbbc  y       $-[0]   0
51 /\N {3,4}/x     abbbbc  y       $+[0]   4
52 ab{0,}bc        abbbbc  y       $&      abbbbc
53 ab{0,}bc        abbbbc  y       $-[0]   0
54 ab{0,}bc        abbbbc  y       $+[0]   6
55 ab+bc   abbc    y       $&      abbc
56 ab+bc   abbc    y       $-[0]   0
57 ab+bc   abbc    y       $+[0]   4
58 ab+bc   abc     n       -       -
59 ab+bc   abq     n       -       -
60 ab{1,}bc        abq     n       -       -
61 ab+bc   abbbbc  y       $&      abbbbc
62 ab+bc   abbbbc  y       $-[0]   0
63 ab+bc   abbbbc  y       $+[0]   6
64 ab{1,}bc        abbbbc  y       $&      abbbbc
65 ab{1,}bc        abbbbc  y       $-[0]   0
66 ab{1,}bc        abbbbc  y       $+[0]   6
67 ab{1,3}bc       abbbbc  y       $&      abbbbc
68 ab{1,3}bc       abbbbc  y       $-[0]   0
69 ab{1,3}bc       abbbbc  y       $+[0]   6
70 ab{3,4}bc       abbbbc  y       $&      abbbbc
71 ab{3,4}bc       abbbbc  y       $-[0]   0
72 ab{3,4}bc       abbbbc  y       $+[0]   6
73 ab{4,5}bc       abbbbc  n       -       -
74 ab?bc   abbc    y       $&      abbc
75 ab?bc   abc     y       $&      abc
76 ab{0,1}bc       abc     y       $&      abc
77 ab?bc   abbbbc  n       -       -
78 ab?c    abc     y       $&      abc
79 ab{0,1}c        abc     y       $&      abc
80 ^abc$   abc     y       $&      abc
81 ^abc$   abcc    n       -       -
82 ^abc    abcc    y       $&      abc
83 ^abc$   aabc    n       -       -
84 abc$    aabc    y       $&      abc
85 abc$    aabcd   n       -       -
86 ^       abc     y       $&      
87 $       abc     y       $&      
88 a.c     abc     y       $&      abc
89 a.c     axc     y       $&      axc
90 a\Nc    abc     y       $&      abc
91 /a\N c/x        abc     y       $&      abc
92 a.*c    axyzc   y       $&      axyzc
93 a\N*c   axyzc   y       $&      axyzc
94 /a\N *c/x       axyzc   y       $&      axyzc
95 a.*c    axyzd   n       -       -
96 a\N*c   axyzd   n       -       -
97 /a\N *c/x       axyzd   n       -       -
98 a[bc]d  abc     n       -       -
99 a[bc]d  abd     y       $&      abd
100 a[b]d   abd     y       $&      abd
101 [a][b][d]       abd     y       $&      abd
102 .[b].   abd     y       $&      abd
103 .[b].   aBd     n       -       -
104 (?i:.[b].)      abd     y       $&      abd
105 (?i:\N[b]\N)    abd     y       $&      abd
106 a[b-d]e abd     n       -       -
107 a[b-d]e ace     y       $&      ace
108 a[b-d]  aac     y       $&      ac
109 a[-b]   a-      y       $&      a-
110 a[b-]   a-      y       $&      a-
111 a[b-a]  -       c       -       Invalid [] range
112 a[]b    -       c       -       Unmatched [
113 a[      -       c       -       Unmatched [
114 a]      a]      y       $&      a]
115 a[]]b   a]b     y       $&      a]b
116 a[^bc]d aed     y       $&      aed
117 a[^bc]d abd     n       -       -
118 a[^-b]c adc     y       $&      adc
119 a[^-b]c a-c     n       -       -
120 a[^]b]c a]c     n       -       -
121 a[^]b]c adc     y       $&      adc
122 \ba\b   a-      y       -       -
123 \ba\b   -a      y       -       -
124 \ba\b   -a-     y       -       -
125 \by\b   xy      n       -       -
126 \by\b   yz      n       -       -
127 \by\b   xyz     n       -       -
128 \Ba\B   a-      n       -       -
129 \Ba\B   -a      n       -       -
130 \Ba\B   -a-     n       -       -
131 \By\b   xy      y       -       -
132 \By\b   xy      y       $-[0]   1
133 \By\b   xy      y       $+[0]   2
134 \By\b   xy      y       -       -
135 \by\B   yz      y       -       -
136 \By\B   xyz     y       -       -
137 \w      a       y       -       -
138 \w      -       n       -       -
139 \W      a       n       -       -
140 \W      -       y       -       -
141 a\sb    a b     y       -       -
142 a\sb    a-b     n       -       -
143 a\Sb    a b     n       -       -
144 a\Sb    a-b     y       -       -
145 \d      1       y       -       -
146 \d      -       n       -       -
147 \D      1       n       -       -
148 \D      -       y       -       -
149 [\w]    a       y       -       -
150 [\w]    -       n       -       -
151 [\W]    a       n       -       -
152 [\W]    -       y       -       -
153 a[\s]b  a b     y       -       -
154 a[\s]b  a-b     n       -       -
155 a[\S]b  a b     n       -       -
156 a[\S]b  a-b     y       -       -
157 [\d]    1       y       -       -
158 [\d]    -       n       -       -
159 [\D]    1       n       -       -
160 [\D]    -       y       -       -
161 ab|cd   abc     y       $&      ab
162 ab|cd   abcd    y       $&      ab
163 ()ef    def     y       $&-$1   ef-
164 ()ef    def     y       $-[0]   1
165 ()ef    def     y       $+[0]   3
166 ()\x{100}\x{1000}       d\x{100}\x{1000}        y       $+[0]   3
167 ()ef    def     y       $-[1]   1
168 ()ef    def     y       $+[1]   1
169 *a      -       c       -       Quantifier follows nothing
170 (|*)b   -       c       -       Quantifier follows nothing
171 (*)b    -       c       -       Unknown verb
172 $b      b       n       -       -
173 a\      -       c       -       Search pattern not terminated
174 a\(b    a(b     y       $&-$1   a(b-
175 a\(*b   ab      y       $&      ab
176 a\(*b   a((b    y       $&      a((b
177 a\\b    a\\b    y       $&      a\\b
178 abc)    -       c       -       Unmatched )
179 (abc    -       c       -       Unmatched (
180 ((a))   abc     y       $&-$1-$2        a-a-a
181 ((a))   abc     y       $-[0]-$-[1]-$-[2]       0-0-0
182 ((a))   abc     y       $+[0]-$+[1]-$+[2]       1-1-1
183 ((a))   abc     b       @-      0 0 0
184 ((a))   abc     b       @+      1 1 1
185 (a)b(c) abc     y       $&-$1-$2        abc-a-c
186 (a)b(c) abc     y       $-[0]-$-[1]-$-[2]       0-0-2
187 (a)b(c) abc     y       $+[0]-$+[1]-$+[2]       3-1-3
188 a+b+c   aabbabc y       $&      abc
189 a{1,}b{1,}c     aabbabc y       $&      abc
190 a**     -       c       -       Nested quantifiers
191 a.+?c   abcabc  y       $&      abc
192 (a+|b)* ab      y       $&-$1   ab-b
193 (a+|b)* ab      y       $-[0]   0
194 (a+|b)* ab      y       $+[0]   2
195 (a+|b)* ab      y       $-[1]   1
196 (a+|b)* ab      y       $+[1]   2
197 (a+|b){0,}      ab      y       $&-$1   ab-b
198 (a+|b)+ ab      y       $&-$1   ab-b
199 (a+|b){1,}      ab      y       $&-$1   ab-b
200 (a+|b)? ab      y       $&-$1   a-a
201 (a+|b){0,1}     ab      y       $&-$1   a-a
202 )(      -       c       -       Unmatched )
203 [^ab]*  cde     y       $&      cde
204 abc             n       -       -
205 a*              y       $&      
206 ([abc])*d       abbbcd  y       $&-$1   abbbcd-c
207 ([abc])*bcd     abcd    y       $&-$1   abcd-a
208 a|b|c|d|e       e       y       $&      e
209 (a|b|c|d|e)f    ef      y       $&-$1   ef-e
210 (a|b|c|d|e)f    ef      y       $-[0]   0
211 (a|b|c|d|e)f    ef      y       $+[0]   2
212 (a|b|c|d|e)f    ef      y       $-[1]   0
213 (a|b|c|d|e)f    ef      y       $+[1]   1
214 abcd*efg        abcdefg y       $&      abcdefg
215 ab*     xabyabbbz       y       $&      ab
216 ab*     xayabbbz        y       $&      a
217 (ab|cd)e        abcde   y       $&-$1   cde-cd
218 [abhgefdc]ij    hij     y       $&      hij
219 ^(ab|cd)e       abcde   n       x$1y    xy
220 (abc|)ef        abcdef  y       $&-$1   ef-
221 (a|b)c*d        abcd    y       $&-$1   bcd-b
222 (ab|ab*)bc      abc     y       $&-$1   abc-a
223 a([bc]*)c*      abc     y       $&-$1   abc-bc
224 a([bc]*)(c*d)   abcd    y       $&-$1-$2        abcd-bc-d
225 a([bc]*)(c*d)   abcd    y       $-[0]   0
226 a([bc]*)(c*d)   abcd    y       $+[0]   4
227 a([bc]*)(c*d)   abcd    y       $-[1]   1
228 a([bc]*)(c*d)   abcd    y       $+[1]   3
229 a([bc]*)(c*d)   abcd    y       $-[2]   3
230 a([bc]*)(c*d)   abcd    y       $+[2]   4
231 a([bc]+)(c*d)   abcd    y       $&-$1-$2        abcd-bc-d
232 a([bc]*)(c+d)   abcd    y       $&-$1-$2        abcd-b-cd
233 a([bc]*)(c+d)   abcd    y       $-[0]   0
234 a([bc]*)(c+d)   abcd    y       $+[0]   4
235 a([bc]*)(c+d)   abcd    y       $-[1]   1
236 a([bc]*)(c+d)   abcd    y       $+[1]   2
237 a([bc]*)(c+d)   abcd    y       $-[2]   2
238 a([bc]*)(c+d)   abcd    y       $+[2]   4
239 a[bcd]*dcdcde   adcdcde y       $&      adcdcde
240 a[bcd]+dcdcde   adcdcde n       -       -
241 (ab|a)b*c       abc     y       $&-$1   abc-ab
242 (ab|a)b*c       abc     y       $-[0]   0
243 (ab|a)b*c       abc     y       $+[0]   3
244 (ab|a)b*c       abc     y       $-[1]   0
245 (ab|a)b*c       abc     y       $+[1]   2
246 ((a)(b)c)(d)    abcd    y       $1-$2-$3-$4     abc-a-b-d
247 ((a)(b)c)(d)    abcd    y       $-[0]   0
248 ((a)(b)c)(d)    abcd    y       $+[0]   4
249 ((a)(b)c)(d)    abcd    y       $-[1]   0
250 ((a)(b)c)(d)    abcd    y       $+[1]   3
251 ((a)(b)c)(d)    abcd    y       $-[2]   0
252 ((a)(b)c)(d)    abcd    y       $+[2]   1
253 ((a)(b)c)(d)    abcd    y       $-[3]   1
254 ((a)(b)c)(d)    abcd    y       $+[3]   2
255 ((a)(b)c)(d)    abcd    y       $-[4]   3
256 ((a)(b)c)(d)    abcd    y       $+[4]   4
257 [a-zA-Z_][a-zA-Z0-9_]*  alpha   y       $&      alpha
258 ^a(bc+|b[eh])g|.h$      abh     y       $&-$1   bh-
259 (bc+d$|ef*g.|h?i(j|k))  effgz   y       $&-$1-$2        effgz-effgz-
260 (bc+d$|ef*g.|h?i(j|k))  ij      y       $&-$1-$2        ij-ij-j
261 (bc+d$|ef*g.|h?i(j|k))  effg    n       -       -
262 (bc+d$|ef*g.|h?i(j|k))  bcdd    n       -       -
263 (bc+d$|ef*g.|h?i(j|k))  reffgz  y       $&-$1-$2        effgz-effgz-
264 ((((((((((a))))))))))   a       y       $10     a
265 ((((((((((a))))))))))   a       y       $-[0]   0
266 ((((((((((a))))))))))   a       y       $+[0]   1
267 ((((((((((a))))))))))   a       y       $-[10]  0
268 ((((((((((a))))))))))   a       y       $+[10]  1
269 ((((((((((a))))))))))\10        aa      y       $&      aa
270 ((((((((((a))))))))))${bang}    aa      n       -       -
271 ((((((((((a))))))))))${bang}    a!      y       $&      a!
272 (((((((((a)))))))))     a       y       $&      a
273 multiple words of text  uh-uh   n       -       -
274 multiple words  multiple words, yeah    y       $&      multiple words
275 (.*)c(.*)       abcde   y       $&-$1-$2        abcde-ab-de
276 \((.*), (.*)\)  (a, b)  y       ($2, $1)        (b, a)
277 [k]     ab      n       -       -
278 abcd    abcd    y       $&-\$&-\\$&     abcd-\$&-\\abcd
279 a(bc)d  abcd    y       $1-\$1-\\$1     bc-\$1-\\bc
280 a[-]?c  ac      y       $&      ac
281 (abc)\1 abcabc  y       $1      abc
282 ([a-c]*)\1      abcabc  y       $1      abc
283 \1      -       c       -       Reference to nonexistent group
284 \2      -       c       -       Reference to nonexistent group
285 \g1     -       c       -       Reference to nonexistent group
286 \g-1    -       c       -       Reference to nonexistent or unclosed group
287 \g{1}   -       c       -       Reference to nonexistent group
288 \g{-1}  -       c       -       Reference to nonexistent or unclosed group
289 \g0     -       c       -       Reference to invalid group 0
290 \g-0    -       c       -       Reference to invalid group 0
291 \g{0}   -       c       -       Reference to invalid group 0
292 \g{-0}  -       c       -       Reference to invalid group 0
293 (a)|\1  a       y       -       -
294 (a)|\1  x       n       -       Reference to group in different branch
295 (?:(b)?a)\1     a       n       -       Reference to group that did not match
296 (a)|\2  -       c       -       Reference to nonexistent group
297 (([a-c])b*?\2)* ababbbcbc       y       $&-$1-$2        ababb-bb-b
298 (([a-c])b*?\2){3}       ababbbcbc       y       $&-$1-$2        ababbbcbc-cbc-c
299 ((\3|b)\2(a)x)+ aaxabxbaxbbx    n       -       -
300 ((\3|b)\2(a)x)+ aaaxabaxbaaxbbax        y       $&-$1-$2-$3     bbax-bbax-b-a
301 ((\3|b)\2(a)){2,}       bbaababbabaaaaabbaaaabba        y       $&-$1-$2-$3     bbaaaabba-bba-b-a
302 #Bug #3589 - up to perl-5.6.0 matches incorrectly, from 5.6.1 not anymore
303 ^((.)?a\2)+$    babadad n       -       -
304 (a)|(b) b       y       $-[0]   0
305 (a)|(b) b       y       $+[0]   1
306 (a)|(b) b       y       x$-[1]  x
307 (a)|(b) b       y       x$+[1]  x
308 (a)|(b) b       y       $-[2]   0
309 (a)|(b) b       y       $+[2]   1
310 'abc'i  ABC     y       $&      ABC
311 'abc'i  XBC     n       -       -
312 'abc'i  AXC     n       -       -
313 'abc'i  ABX     n       -       -
314 'abc'i  XABCY   y       $&      ABC
315 'abc'i  ABABC   y       $&      ABC
316 'ab*c'i ABC     y       $&      ABC
317 'ab*bc'i        ABC     y       $&      ABC
318 'ab*bc'i        ABBC    y       $&      ABBC
319 'ab*?bc'i       ABBBBC  y       $&      ABBBBC
320 'ab{0,}?bc'i    ABBBBC  y       $&      ABBBBC
321 'ab+?bc'i       ABBC    y       $&      ABBC
322 'ab+bc'i        ABC     n       -       -
323 'ab+bc'i        ABQ     n       -       -
324 'ab{1,}bc'i     ABQ     n       -       -
325 'ab+bc'i        ABBBBC  y       $&      ABBBBC
326 'ab{1,}?bc'i    ABBBBC  y       $&      ABBBBC
327 'ab{1,3}?bc'i   ABBBBC  y       $&      ABBBBC
328 'ab{3,4}?bc'i   ABBBBC  y       $&      ABBBBC
329 'ab{4,5}?bc'i   ABBBBC  n       -       -
330 'ab??bc'i       ABBC    y       $&      ABBC
331 'ab??bc'i       ABC     y       $&      ABC
332 'ab{0,1}?bc'i   ABC     y       $&      ABC
333 'ab??bc'i       ABBBBC  n       -       -
334 'ab??c'i        ABC     y       $&      ABC
335 'ab{0,1}?c'i    ABC     y       $&      ABC
336 '^abc$'i        ABC     y       $&      ABC
337 '^abc$'i        ABCC    n       -       -
338 '^abc'i ABCC    y       $&      ABC
339 '^abc$'i        AABC    n       -       -
340 'abc$'i AABC    y       $&      ABC
341 '^'i    ABC     y       $&      
342 '$'i    ABC     y       $&      
343 'a.c'i  ABC     y       $&      ABC
344 'a.c'i  AXC     y       $&      AXC
345 'a\Nc'i ABC     y       $&      ABC
346 'a.*?c'i        AXYZC   y       $&      AXYZC
347 'a.*c'i AXYZD   n       -       -
348 'a[bc]d'i       ABC     n       -       -
349 'a[bc]d'i       ABD     y       $&      ABD
350 'a[b-d]e'i      ABD     n       -       -
351 'a[b-d]e'i      ACE     y       $&      ACE
352 'a[b-d]'i       AAC     y       $&      AC
353 'a[-b]'i        A-      y       $&      A-
354 'a[b-]'i        A-      y       $&      A-
355 'a[b-a]'i       -       c       -       Invalid [] range
356 'a[]b'i -       c       -       Unmatched [
357 'a['i   -       c       -       Unmatched [
358 'a]'i   A]      y       $&      A]
359 'a[]]b'i        A]B     y       $&      A]B
360 'a[^bc]d'i      AED     y       $&      AED
361 'a[^bc]d'i      ABD     n       -       -
362 'a[^-b]c'i      ADC     y       $&      ADC
363 'a[^-b]c'i      A-C     n       -       -
364 'a[^]b]c'i      A]C     n       -       -
365 'a[^]b]c'i      ADC     y       $&      ADC
366 'ab|cd'i        ABC     y       $&      AB
367 'ab|cd'i        ABCD    y       $&      AB
368 '()ef'i DEF     y       $&-$1   EF-
369 '*a'i   -       c       -       Quantifier follows nothing
370 '(|*)b'i        -       c       -       Quantifier follows nothing
371 '(*)b'i -       c       -       Unknown verb
372 '$b'i   B       n       -       -
373 'a\'i   -       c       -       Search pattern not terminated
374 'a\(b'i A(B     y       $&-$1   A(B-
375 'a\(*b'i        AB      y       $&      AB
376 'a\(*b'i        A((B    y       $&      A((B
377 'a\\b'i A\\B    y       $&      A\\B
378 'abc)'i -       c       -       Unmatched )
379 '(abc'i -       c       -       Unmatched (
380 '((a))'i        ABC     y       $&-$1-$2        A-A-A
381 '(a)b(c)'i      ABC     y       $&-$1-$2        ABC-A-C
382 'a+b+c'i        AABBABC y       $&      ABC
383 'a{1,}b{1,}c'i  AABBABC y       $&      ABC
384 'a**'i  -       c       -       Nested quantifiers
385 'a.+?c'i        ABCABC  y       $&      ABC
386 'a.*?c'i        ABCABC  y       $&      ABC
387 'a.{0,5}?c'i    ABCABC  y       $&      ABC
388 '(a+|b)*'i      AB      y       $&-$1   AB-B
389 '(a+|b){0,}'i   AB      y       $&-$1   AB-B
390 '(a+|b)+'i      AB      y       $&-$1   AB-B
391 '(a+|b){1,}'i   AB      y       $&-$1   AB-B
392 '(a+|b)?'i      AB      y       $&-$1   A-A
393 '(a+|b){0,1}'i  AB      y       $&-$1   A-A
394 '(a+|b){0,1}?'i AB      y       $&-$1   -
395 ')('i   -       c       -       Unmatched )
396 '[^ab]*'i       CDE     y       $&      CDE
397 'abc'i          n       -       -
398 'a*'i           y       $&      
399 '([abc])*d'i    ABBBCD  y       $&-$1   ABBBCD-C
400 '([abc])*bcd'i  ABCD    y       $&-$1   ABCD-A
401 'a|b|c|d|e'i    E       y       $&      E
402 '(a|b|c|d|e)f'i EF      y       $&-$1   EF-E
403 'abcd*efg'i     ABCDEFG y       $&      ABCDEFG
404 'ab*'i  XABYABBBZ       y       $&      AB
405 'ab*'i  XAYABBBZ        y       $&      A
406 '(ab|cd)e'i     ABCDE   y       $&-$1   CDE-CD
407 '[abhgefdc]ij'i HIJ     y       $&      HIJ
408 '^(ab|cd)e'i    ABCDE   n       x$1y    XY
409 '(abc|)ef'i     ABCDEF  y       $&-$1   EF-
410 '(a|b)c*d'i     ABCD    y       $&-$1   BCD-B
411 '(ab|ab*)bc'i   ABC     y       $&-$1   ABC-A
412 'a([bc]*)c*'i   ABC     y       $&-$1   ABC-BC
413 'a([bc]*)(c*d)'i        ABCD    y       $&-$1-$2        ABCD-BC-D
414 'a([bc]+)(c*d)'i        ABCD    y       $&-$1-$2        ABCD-BC-D
415 'a([bc]*)(c+d)'i        ABCD    y       $&-$1-$2        ABCD-B-CD
416 'a[bcd]*dcdcde'i        ADCDCDE y       $&      ADCDCDE
417 'a[bcd]+dcdcde'i        ADCDCDE n       -       -
418 '(ab|a)b*c'i    ABC     y       $&-$1   ABC-AB
419 '((a)(b)c)(d)'i ABCD    y       $1-$2-$3-$4     ABC-A-B-D
420 '[a-zA-Z_][a-zA-Z0-9_]*'i       ALPHA   y       $&      ALPHA
421 '^a(bc+|b[eh])g|.h$'i   ABH     y       $&-$1   BH-
422 '(bc+d$|ef*g.|h?i(j|k))'i       EFFGZ   y       $&-$1-$2        EFFGZ-EFFGZ-
423 '(bc+d$|ef*g.|h?i(j|k))'i       IJ      y       $&-$1-$2        IJ-IJ-J
424 '(bc+d$|ef*g.|h?i(j|k))'i       EFFG    n       -       -
425 '(bc+d$|ef*g.|h?i(j|k))'i       BCDD    n       -       -
426 '(bc+d$|ef*g.|h?i(j|k))'i       REFFGZ  y       $&-$1-$2        EFFGZ-EFFGZ-
427 '((((((((((a))))))))))'i        A       y       $10     A
428 '((((((((((a))))))))))\10'i     AA      y       $&      AA
429 '((((((((((a))))))))))${bang}'i AA      n       -       -
430 '((((((((((a))))))))))${bang}'i A!      y       $&      A!
431 '(((((((((a)))))))))'i  A       y       $&      A
432 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a))))))))))'i      A       y       $1      A
433 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a|b|c))))))))))'i  C       y       $1      C
434 'multiple words of text'i       UH-UH   n       -       -
435 'multiple words'i       MULTIPLE WORDS, YEAH    y       $&      MULTIPLE WORDS
436 '(.*)c(.*)'i    ABCDE   y       $&-$1-$2        ABCDE-AB-DE
437 '\((.*), (.*)\)'i       (A, B)  y       ($2, $1)        (B, A)
438 '[k]'i  AB      n       -       -
439 'abcd'i ABCD    y       $&-\$&-\\$&     ABCD-\$&-\\ABCD
440 'a(bc)d'i       ABCD    y       $1-\$1-\\$1     BC-\$1-\\BC
441 'a[-]?c'i       AC      y       $&      AC
442 '(abc)\1'i      ABCABC  y       $1      ABC
443 '([a-c]*)\1'i   ABCABC  y       $1      ABC
444 a(?!b). abad    y       $&      ad
445 (?=)a   a       y       $&      a
446 a(?=d). abad    y       $&      ad
447 a(?=c|d).       abad    y       $&      ad
448 a(?:b|c|d)(.)   ace     y       $1      e
449 a(?:b|c|d)*(.)  ace     y       $1      e
450 a(?:b|c|d)+?(.) ace     y       $1      e
451 a(?:b|c|d)+?(.) acdbcdbe        y       $1      d
452 a(?:b|c|d)+(.)  acdbcdbe        y       $1      e
453 a(?:b|c|d){2}(.)        acdbcdbe        y       $1      b
454 a(?:b|c|d){4,5}(.)      acdbcdbe        y       $1      b
455 a(?:b|c|d){4,5}?(.)     acdbcdbe        y       $1      d
456 ((foo)|(bar))*  foobar  y       $1-$2-$3        bar-foo-bar
457 :(?:    -       c       -       Sequence (? incomplete
458 a(?:b|c|d){6,7}(.)      acdbcdbe        y       $1      e
459 a(?:b|c|d){6,7}?(.)     acdbcdbe        y       $1      e
460 a(?:b|c|d){5,6}(.)      acdbcdbe        y       $1      e
461 a(?:b|c|d){5,6}?(.)     acdbcdbe        y       $1      b
462 a(?:b|c|d){5,7}(.)      acdbcdbe        y       $1      e
463 a(?:b|c|d){5,7}?(.)     acdbcdbe        y       $1      b
464 a(?:b|(c|e){1,2}?|d)+?(.)       ace     y       $1$2    ce
465 ^(.+)?B AB      y       $1      A
466 ^([^a-z])|(\^)$ .       y       $1      .
467 ^[<>]&  <&OUT   y       $&      <&
468 ^(a\1?){4}$     aaaaaaaaaa      y       $1      aaaa
469 ^(a\1?){4}$     aaaaaaaaa       n       -       -
470 ^(a\1?){4}$     aaaaaaaaaaa     n       -       -
471 ^(a(?(1)\1)){4}$        aaaaaaaaaa      y       $1      aaaa
472 ^(a(?(1)\1)){4}$        aaaaaaaaa       n       -       -
473 ^(a(?(1)\1)){4}$        aaaaaaaaaaa     n       -       -
474 ((a{4})+)       aaaaaaaaa       y       $1      aaaaaaaa
475 (((aa){2})+)    aaaaaaaaaa      y       $1      aaaaaaaa
476 (((a{2}){2})+)  aaaaaaaaaa      y       $1      aaaaaaaa
477 (?:(f)(o)(o)|(b)(a)(r))*        foobar  y       $1:$2:$3:$4:$5:$6       f:o:o:b:a:r
478 (?<=a)b ab      y       $&      b
479 (?<=a)b cb      n       -       -
480 (?<=a)b b       n       -       -
481 (?<!c)b ab      y       $&      b
482 (?<!c)b cb      n       -       -
483 (?<!c)b b       y       -       -
484 (?<!c)b b       y       $&      b
485 (?<%)b  -       c       -       Group name must start with a non-digit word character
486 (?:..)*a        aba     y       $&      aba
487 (?:..)*?a       aba     y       $&      a
488 ^(?:b|a(?=(.)))*\1      abc     y       $&      ab
489 ^(){3,5}        abc     y       a$1     a
490 ^(a+)*ax        aax     y       $1      a
491 ^((a|b)+)*ax    aax     y       $1      a
492 ^((a|bc)+)*ax   aax     y       $1      a
493 (a|x)*ab        cab     y       y$1     y
494 (a)*ab  cab     y       y$1     y
495 (?:(?i)a)b      ab      y       $&      ab
496 ((?i)a)b        ab      y       $&:$1   ab:a
497 (?:(?i)a)b      Ab      y       $&      Ab
498 ((?i)a)b        Ab      y       $&:$1   Ab:A
499 (?:(?i)a)b      aB      n       -       -
500 ((?i)a)b        aB      n       -       -
501 (?i:a)b ab      y       $&      ab
502 ((?i:a))b       ab      y       $&:$1   ab:a
503 (?i:a)b Ab      y       $&      Ab
504 ((?i:a))b       Ab      y       $&:$1   Ab:A
505 (?i:a)b aB      n       -       -
506 ((?i:a))b       aB      n       -       -
507 '(?:(?-i)a)b'i  ab      y       $&      ab
508 '((?-i)a)b'i    ab      y       $&:$1   ab:a
509 '(?:(?-i)a)b'i  aB      y       $&      aB
510 '((?-i)a)b'i    aB      y       $&:$1   aB:a
511 '(?:(?-i)a)b'i  Ab      n       -       -
512 '((?-i)a)b'i    Ab      n       -       -
513 '(?:(?-i)a)b'i  aB      y       $&      aB
514 '((?-i)a)b'i    aB      y       $1      a
515 '(?:(?-i)a)b'i  AB      n       -       -
516 '((?-i)a)b'i    AB      n       -       -
517 '(?-i:a)b'i     ab      y       $&      ab
518 '((?-i:a))b'i   ab      y       $&:$1   ab:a
519 '(?-i:a)b'i     aB      y       $&      aB
520 '((?-i:a))b'i   aB      y       $&:$1   aB:a
521 '(?-i:a)b'i     Ab      n       -       -
522 '((?-i:a))b'i   Ab      n       -       -
523 '(?-i:a)b'i     aB      y       $&      aB
524 '((?-i:a))b'i   aB      y       $1      a
525 '(?-i:a)b'i     AB      n       -       -
526 '((?-i:a))b'i   AB      n       -       -
527 '((?-i:a.))b'i  a\nB    n       -       -
528 '((?-i:a\N))b'i a\nB    n       -       -
529 '((?s-i:a.))b'i a\nB    y       $1      a\n
530 '((?s-i:a\N))b'i        a\nB    n       -       -
531 '((?s-i:a.))b'i B\nB    n       -       -
532 '((?s-i:a\N))b'i        B\nB    n       -       -
533 (?:c|d)(?:)(?:a(?:)(?:b)(?:b(?:))(?:b(?:)(?:b)))        cabbbb  y       $&      cabbbb
534 (?:c|d)(?:)(?:aaaaaaaa(?:)(?:bbbbbbbb)(?:bbbbbbbb(?:))(?:bbbbbbbb(?:)(?:bbbbbbbb)))     caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb       y       $&      caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
535 '(ab)\d\1'i     Ab4ab   y       $1      Ab
536 '(ab)\d\1'i     ab4Ab   y       $1      ab
537 foo\w*\d{4}baz  foobar1234baz   y       $&      foobar1234baz
538 a(?{})b cabd    y       $&      ab
539 a(?{f()+        -       c       -       Missing right curly or square bracket
540 a(?{{1}+        -       c       -       Missing right curly or square bracket
541 a(?{}})b        -       c       -       
542 a(?{"{"})b      ab      y       -       -
543 a(?{"\{"})b     cabd    y       $&      ab
544 a(?{"{"}})b     -       c       -       Sequence (?{...}) not terminated with ')'
545 a(?{$::bl="\{"}).b      caxbd   y       $::bl   {
546 x(~~)*(?:(?:F)?)?       x~~     y       -       -
547 ^a(?#xxx){3}c   aaac    y       $&      aaac
548 '^a (?#xxx) (?#yyy) {3}c'x      aaac    y       $&      aaac
549 (?<![cd])b      dbcb    n       -       -
550 (?<![cd])[ab]   dbaacb  y       $&      a
551 (?<!(c|d))b     dbcb    n       -       -
552 (?<!(c|d))[ab]  dbaacb  y       $&      a
553 (?<!cd)[ab]     cdaccb  y       $&      b
554 ^(?:a?b?)*$     a--     n       -       -
555 ((?s)^a(.))((?m)^b$)    a\nb\nc\n       y       $1;$2;$3        a\n;\n;b
556 ((?m)^b$)       a\nb\nc\n       y       $1      b
557 (?m)^b  a\nb\n  y       $&      b
558 (?m)^(b)        a\nb\n  y       $1      b
559 ((?m)^b)        a\nb\n  y       $1      b
560 \n((?m)^b)      a\nb\n  y       $1      b
561 ((?s).)c(?!.)   a\nb\nc\n       y       $1      \n
562 ((?s).)c(?!.)   a\nb\nc\n       y       $1:$&   \n:\nc
563 ((?s)b.)c(?!.)  a\nb\nc\n       y       $1      b\n
564 ((?s)b.)c(?!.)  a\nb\nc\n       y       $1:$&   b\n:b\nc
565 ((?s)b.)c(?!\N) a\nb\nc\n       y       $1:$&   b\n:b\nc
566 '(b.)c(?!\N)'s  a\nb\nc\n       y       $1:$&   b\n:b\nc
567 ^b      a\nb\nc\n       n       -       -
568 ()^b    a\nb\nc\n       n       -       -
569 ((?m)^b)        a\nb\nc\n       y       $1      b
570 (?(1)a|b)       a       n       -       -
571 (?(1)b|a)       a       y       $&      a
572 (x)?(?(1)a|b)   a       n       -       -
573 (x)?(?(1)b|a)   a       y       $&      a
574 ()?(?(1)b|a)    a       y       $&      a
575 ()(?(1)b|a)     a       n       -       -
576 ()?(?(1)a|b)    a       y       $&      a
577 ^(\()?blah(?(1)(\)))$   (blah)  y       $2      )
578 ^(\()?blah(?(1)(\)))$   blah    y       ($2)    ()
579 ^(\()?blah(?(1)(\)))$   blah)   n       -       -
580 ^(\()?blah(?(1)(\)))$   (blah   n       -       -
581 ^(\(+)?blah(?(1)(\)))$  (blah)  y       $2      )
582 ^(\(+)?blah(?(1)(\)))$  blah    y       ($2)    ()
583 ^(\(+)?blah(?(1)(\)))$  blah)   n       -       -
584 ^(\(+)?blah(?(1)(\)))$  (blah   n       -       -
585 (?(1?)a|b)      -       c       -       Switch condition not recognized
586 (?(1)a|b|c)     -       c       -       Switch (?(condition)... contains too many branches
587 (?(?{0})a|b)    a       n       -       -
588 (?(?{0})b|a)    a       y       $&      a
589 (?(?{1})b|a)    a       n       -       -
590 (?(?{1})a|b)    a       y       $&      a
591 (?(?!a)a|b)     a       n       -       -
592 (?(?!a)b|a)     a       y       $&      a
593 (?(?=a)b|a)     a       n       -       -
594 (?(?=a)a|b)     a       y       $&      a
595 (?(?!\x{100})\x{100}|b) \x{100} n       -       -
596 (?(?!\x{100})b|\x{100}) \x{100} y       $&      \x{100}
597 (?(?=\x{100})b|\x{100}) \x{100} n       -       -
598 (?(?=\x{100})\x{100}|b) \x{100} y       $&      \x{100}
599 (?=(a+?))(\1ab) aaab    y       $2      aab
600 ^(?=(a+?))\1ab  aaab    n       -       -
601 (\w+:)+ one:    y       $1      one:
602 $(?<=^(a))      a       y       $1      a
603 (?=(a+?))(\1ab) aaab    y       $2      aab
604 ^(?=(a+?))\1ab  aaab    n       -       -
605 ([\w:]+::)?(\w+)$       abcd:   n       -       -
606 ([\w:]+::)?(\w+)$       abcd    y       $1-$2   -abcd
607 ([\w:]+::)?(\w+)$       xy:z:::abcd     y       $1-$2   xy:z:::-abcd
608 ^[^bcd]*(c+)    aexycd  y       $1      c
609 (a*)b+  caab    y       $1      aa
610 ([\w:]+::)?(\w+)$       abcd:   n       -       -
611 ([\w:]+::)?(\w+)$       abcd    y       $1-$2   -abcd
612 ([\w:]+::)?(\w+)$       xy:z:::abcd     y       $1-$2   xy:z:::-abcd
613 ^[^bcd]*(c+)    aexycd  y       $1      c
614 (?{$a=2})a*aa(?{local$a=$a+1})k*c(?{$b=$a})     yaaxxaaaacd     y       $b      3
615 (?{$a=2})(a(?{local$a=$a+1}))*aak*c(?{$b=$a})   yaaxxaaaacd     y       $b      4
616 # [perl #117917]
617 ^(a(?{ "x" =~ m{x}})b)(??{ $1 })        abab    y       $&      abab
618 (>a+)ab aaab    n       -       -
619 (?>a+)b aaab    y       -       -
620 ([[:]+) a:[b]:  y       $1      :[
621 ([[=]+) a=[b]=  y       $1      =[
622 ([[.]+) a.[b].  y       $1      .[
623 [a[:xyz:        -       c       -       Unmatched [
624 [a[:xyz:]       -       c       -       POSIX class [:xyz:] unknown
625 [a[:]b[:c]      abc     y       $&      abc
626 ([a[:xyz:]b]+)  -       c       -       POSIX class [:xyz:] unknown
627 ([[:alpha:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd
628 ([[:alnum:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy
629 ([[:ascii:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--  ${nulnul}
630 ([[:cntrl:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${nulnul}
631 ([[:digit:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      01
632 ([[:graph:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--
633 ([[:lower:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      cd
634 ([[:print:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--  
635 ([[:punct:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      __--
636 ([[:space:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1        
637 ([[:word:]]+)   ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__
638 ([[:upper:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      AB
639 ([[:xdigit:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01
640 ([[:^alpha:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      01
641 ((?a)[[:^alnum:]]+)     ABcd01Xy__--  ${nulnul}${ffff}  y       $1      __--  ${nulnul}${ffff}
642 ([[:^ascii:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${ffff}
643 ([[:^cntrl:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--  
644 ([[:^digit:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd
645 ([[:^lower:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      AB
646 ((?a)[[:^print:]]+)     ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${nulnul}${ffff}
647 ([[:^punct:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy
648 ([[:^space:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--
649 ((?a)[[:^word:]]+)      ABcd01Xy__--  ${nulnul}${ffff}  y       $1      --  ${nulnul}${ffff}
650 ([[:^upper:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      cd01
651 ([[:^xdigit:]]+)        ABcd01Xy__--  ${nulnul}${ffff}  y       $1      Xy__--  ${nulnul}${ffff}
652 [[:foo:]]       -       c       -       POSIX class [:foo:] unknown
653 [[:^foo:]]      -       c       -       POSIX class [:^foo:] unknown
654 ((?>a+)b)       aaab    y       $1      aaab
655 (?>(a+))b       aaab    y       $1      aaa
656 ((?>[^()]+)|\([^()]*\))+        ((abc(ade)ufh()()x      y       $&      abc(ade)ufh()()x
657 (?<=x+)y        -       c       -       Variable length lookbehind not implemented
658 ((def){37,17})?ABC      ABC     y       $&      ABC
659 \Z      a\nb\n  y       $-[0]   3
660 \z      a\nb\n  y       $-[0]   4
661 $       a\nb\n  y       $-[0]   3
662 \Z      b\na\n  y       $-[0]   3
663 \z      b\na\n  y       $-[0]   4
664 $       b\na\n  y       $-[0]   3
665 \Z      b\na    y       $-[0]   3
666 \z      b\na    y       $-[0]   3
667 $       b\na    y       $-[0]   3
668 '\Z'm   a\nb\n  y       $-[0]   3
669 '\z'm   a\nb\n  y       $-[0]   4
670 '$'m    a\nb\n  y       $-[0]   1
671 '\Z'm   b\na\n  y       $-[0]   3
672 '\z'm   b\na\n  y       $-[0]   4
673 '$'m    b\na\n  y       $-[0]   1
674 '\Z'm   b\na    y       $-[0]   3
675 '\z'm   b\na    y       $-[0]   3
676 '$'m    b\na    y       $-[0]   1
677 a\Z     a\nb\n  n       -       -
678 a\z     a\nb\n  n       -       -
679 a$      a\nb\n  n       -       -
680 a\Z     b\na\n  y       $-[0]   2
681 a\z     b\na\n  n       -       -
682 a$      b\na\n  y       $-[0]   2
683 a\Z     b\na    y       $-[0]   2
684 a\z     b\na    y       $-[0]   2
685 a$      b\na    y       $-[0]   2
686 'a\Z'm  a\nb\n  n       -       -
687 'a\z'm  a\nb\n  n       -       -
688 'a$'m   a\nb\n  y       $-[0]   0
689 'a\Z'm  b\na\n  y       $-[0]   2
690 'a\z'm  b\na\n  n       -       -
691 'a$'m   b\na\n  y       $-[0]   2
692 'a\Z'm  b\na    y       $-[0]   2
693 'a\z'm  b\na    y       $-[0]   2
694 'a$'m   b\na    y       $-[0]   2
695 aa\Z    aa\nb\n n       -       -
696 aa\z    aa\nb\n n       -       -
697 aa$     aa\nb\n n       -       -
698 aa\Z    b\naa\n y       $-[0]   2
699 aa\z    b\naa\n n       -       -
700 aa$     b\naa\n y       $-[0]   2
701 aa\Z    b\naa   y       $-[0]   2
702 aa\z    b\naa   y       $-[0]   2
703 aa$     b\naa   y       $-[0]   2
704 'aa\Z'm aa\nb\n n       -       -
705 'aa\z'm aa\nb\n n       -       -
706 'aa$'m  aa\nb\n y       $-[0]   0
707 'aa\Z'm b\naa\n y       $-[0]   2
708 'aa\z'm b\naa\n n       -       -
709 'aa$'m  b\naa\n y       $-[0]   2
710 'aa\Z'm b\naa   y       $-[0]   2
711 'aa\z'm b\naa   y       $-[0]   2
712 'aa$'m  b\naa   y       $-[0]   2
713 aa\Z    ac\nb\n n       -       -
714 aa\z    ac\nb\n n       -       -
715 aa$     ac\nb\n n       -       -
716 aa\Z    b\nac\n n       -       -
717 aa\z    b\nac\n n       -       -
718 aa$     b\nac\n n       -       -
719 aa\Z    b\nac   n       -       -
720 aa\z    b\nac   n       -       -
721 aa$     b\nac   n       -       -
722 'aa\Z'm ac\nb\n n       -       -
723 'aa\z'm ac\nb\n n       -       -
724 'aa$'m  ac\nb\n n       -       -
725 'aa\Z'm b\nac\n n       -       -
726 'aa\z'm b\nac\n n       -       -
727 'aa$'m  b\nac\n n       -       -
728 'aa\Z'm b\nac   n       -       -
729 'aa\z'm b\nac   n       -       -
730 'aa$'m  b\nac   n       -       -
731 aa\Z    ca\nb\n n       -       -
732 aa\z    ca\nb\n n       -       -
733 aa$     ca\nb\n n       -       -
734 aa\Z    b\nca\n n       -       -
735 aa\z    b\nca\n n       -       -
736 aa$     b\nca\n n       -       -
737 aa\Z    b\nca   n       -       -
738 aa\z    b\nca   n       -       -
739 aa$     b\nca   n       -       -
740 'aa\Z'm ca\nb\n n       -       -
741 'aa\z'm ca\nb\n n       -       -
742 'aa$'m  ca\nb\n n       -       -
743 'aa\Z'm b\nca\n n       -       -
744 'aa\z'm b\nca\n n       -       -
745 'aa$'m  b\nca\n n       -       -
746 'aa\Z'm b\nca   n       -       -
747 'aa\z'm b\nca   n       -       -
748 'aa$'m  b\nca   n       -       -
749 ab\Z    ab\nb\n n       -       -
750 ab\z    ab\nb\n n       -       -
751 ab$     ab\nb\n n       -       -
752 ab\Z    b\nab\n y       $-[0]   2
753 ab\z    b\nab\n n       -       -
754 ab$     b\nab\n y       $-[0]   2
755 ab\Z    b\nab   y       $-[0]   2
756 ab\z    b\nab   y       $-[0]   2
757 ab$     b\nab   y       $-[0]   2
758 'ab\Z'm ab\nb\n n       -       -
759 'ab\z'm ab\nb\n n       -       -
760 'ab$'m  ab\nb\n y       $-[0]   0
761 'ab\Z'm b\nab\n y       $-[0]   2
762 'ab\z'm b\nab\n n       -       -
763 'ab$'m  b\nab\n y       $-[0]   2
764 'ab\Z'm b\nab   y       $-[0]   2
765 'ab\z'm b\nab   y       $-[0]   2
766 'ab$'m  b\nab   y       $-[0]   2
767 ab\Z    ac\nb\n n       -       -
768 ab\z    ac\nb\n n       -       -
769 ab$     ac\nb\n n       -       -
770 ab\Z    b\nac\n n       -       -
771 ab\z    b\nac\n n       -       -
772 ab$     b\nac\n n       -       -
773 ab\Z    b\nac   n       -       -
774 ab\z    b\nac   n       -       -
775 ab$     b\nac   n       -       -
776 'ab\Z'm ac\nb\n n       -       -
777 'ab\z'm ac\nb\n n       -       -
778 'ab$'m  ac\nb\n n       -       -
779 'ab\Z'm b\nac\n n       -       -
780 'ab\z'm b\nac\n n       -       -
781 'ab$'m  b\nac\n n       -       -
782 'ab\Z'm b\nac   n       -       -
783 'ab\z'm b\nac   n       -       -
784 'ab$'m  b\nac   n       -       -
785 ab\Z    ca\nb\n n       -       -
786 ab\z    ca\nb\n n       -       -
787 ab$     ca\nb\n n       -       -
788 ab\Z    b\nca\n n       -       -
789 ab\z    b\nca\n n       -       -
790 ab$     b\nca\n n       -       -
791 ab\Z    b\nca   n       -       -
792 ab\z    b\nca   n       -       -
793 ab$     b\nca   n       -       -
794 'ab\Z'm ca\nb\n n       -       -
795 'ab\z'm ca\nb\n n       -       -
796 'ab$'m  ca\nb\n n       -       -
797 'ab\Z'm b\nca\n n       -       -
798 'ab\z'm b\nca\n n       -       -
799 'ab$'m  b\nca\n n       -       -
800 'ab\Z'm b\nca   n       -       -
801 'ab\z'm b\nca   n       -       -
802 'ab$'m  b\nca   n       -       -
803 abb\Z   abb\nb\n        n       -       -
804 abb\z   abb\nb\n        n       -       -
805 abb$    abb\nb\n        n       -       -
806 abb\Z   b\nabb\n        y       $-[0]   2
807 abb\z   b\nabb\n        n       -       -
808 abb$    b\nabb\n        y       $-[0]   2
809 abb\Z   b\nabb  y       $-[0]   2
810 abb\z   b\nabb  y       $-[0]   2
811 abb$    b\nabb  y       $-[0]   2
812 'abb\Z'm        abb\nb\n        n       -       -
813 'abb\z'm        abb\nb\n        n       -       -
814 'abb$'m abb\nb\n        y       $-[0]   0
815 'abb\Z'm        b\nabb\n        y       $-[0]   2
816 'abb\z'm        b\nabb\n        n       -       -
817 'abb$'m b\nabb\n        y       $-[0]   2
818 'abb\Z'm        b\nabb  y       $-[0]   2
819 'abb\z'm        b\nabb  y       $-[0]   2
820 'abb$'m b\nabb  y       $-[0]   2
821 abb\Z   ac\nb\n n       -       -
822 abb\z   ac\nb\n n       -       -
823 abb$    ac\nb\n n       -       -
824 abb\Z   b\nac\n n       -       -
825 abb\z   b\nac\n n       -       -
826 abb$    b\nac\n n       -       -
827 abb\Z   b\nac   n       -       -
828 abb\z   b\nac   n       -       -
829 abb$    b\nac   n       -       -
830 'abb\Z'm        ac\nb\n n       -       -
831 'abb\z'm        ac\nb\n n       -       -
832 'abb$'m ac\nb\n n       -       -
833 'abb\Z'm        b\nac\n n       -       -
834 'abb\z'm        b\nac\n n       -       -
835 'abb$'m b\nac\n n       -       -
836 'abb\Z'm        b\nac   n       -       -
837 'abb\z'm        b\nac   n       -       -
838 'abb$'m b\nac   n       -       -
839 abb\Z   ca\nb\n n       -       -
840 abb\z   ca\nb\n n       -       -
841 abb$    ca\nb\n n       -       -
842 abb\Z   b\nca\n n       -       -
843 abb\z   b\nca\n n       -       -
844 abb$    b\nca\n n       -       -
845 abb\Z   b\nca   n       -       -
846 abb\z   b\nca   n       -       -
847 abb$    b\nca   n       -       -
848 'abb\Z'm        ca\nb\n n       -       -
849 'abb\z'm        ca\nb\n n       -       -
850 'abb$'m ca\nb\n n       -       -
851 'abb\Z'm        b\nca\n n       -       -
852 'abb\z'm        b\nca\n n       -       -
853 'abb$'m b\nca\n n       -       -
854 'abb\Z'm        b\nca   n       -       -
855 'abb\z'm        b\nca   n       -       -
856 'abb$'m b\nca   n       -       -
857 '\Aa$'m a\n\n   y       $&      a
858 (^|x)(c)        ca      y       $2      c
859 a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz    x       n       -       -
860 a(?{$a=2;$b=3;($b)=$a})b        yabz    y       $b      2
861 round\(((?>[^()]+))\)   _I(round(xs * sz),1)    y       $1      xs * sz
862 '((?x:.) )'     x       y       $1-     x -
863 '((?-x:.) )'x   x       y       $1-     x-
864 foo.bart        foo.bart        y       -       -
865 '^d[x][x][x]'m  abcd\ndxxx      y       -       -
866 .X(.+)+X        bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  y       -       -
867 .X(.+)+XX       bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
868 .XX(.+)+X       bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
869 .X(.+)+X        bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  n       -       -
870 .X(.+)+XX       bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
871 .XX(.+)+X       bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
872 .X(.+)+[X]      bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  y       -       -
873 .X(.+)+[X][X]   bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
874 .XX(.+)+[X]     bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
875 .X(.+)+[X]      bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  n       -       -
876 .X(.+)+[X][X]   bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
877 .XX(.+)+[X]     bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
878 .[X](.+)+[X]    bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  y       -       -
879 .[X](.+)+[X][X] bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
880 .[X][X](.+)+[X] bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
881 .[X](.+)+[X]    bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  n       -       -
882 .[X](.+)+[X][X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
883 .[X][X](.+)+[X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
884 tt+$    xxxtt   y       -       -
885 ([a-\d]+)       za-9z   Sy      $1      a-9
886 ([a-\d]+)       -       sc      -       False [] range
887 ([\d-z]+)       a0-za   Sy      $1      0-z
888 ([\d-z]+)       -       sc      $1      False [] range
889 ([\d-\s]+)      a0- z   Sy      $1      0- 
890 ([\d-\s]+)      -       sc      $1      False [] range
891 ([a-[:digit:]]+)        za-9z   Sy      $1      a-9
892 ([a-[:digit:]]+)        -       sc      -       False [] range
893 ([[:digit:]-z]+)        =0-z=   Sy      $1      0-z
894 ([[:digit:]-z]+)        -       sc      c       False [] range
895 ([[:digit:]-[:alpha:]]+)        =0-z=   Sy      $1      0-z
896 ([[:digit:]-[:alpha:]]+)        -       sc      -       False [] range
897 \GX.*X  aaaXbX  n       -       -
898 (\d+\.\d+)      3.1415926       y       $1      3.1415926
899 (\ba.{0,10}br)  have a web browser      y       $1      a web br
900 '\.c(pp|xx|c)?$'i       Changes n       -       -
901 '\.c(pp|xx|c)?$'i       IO.c    y       -       -
902 '(\.c(pp|xx|c)?$)'i     IO.c    y       $1      .c
903 ^([a-z]:)       C:/     n       -       -
904 '^\S\s+aa$'m    \nx aa  y       -       -
905 (^|a)b  ab      y       -       -
906 ^([ab]*?)(b)?(c)$       abac    y       -$2-    --
907 (\w)?(abc)\1b   abcab   n       -       -
908 ^(?:.,){2}c     a,b,c   y       -       -
909 ^(.,){2}c       a,b,c   y       $1      b,
910 ^(?:[^,]*,){2}c a,b,c   y       -       -
911 ^([^,]*,){2}c   a,b,c   y       $1      b,
912 ^([^,]*,){3}d   aaa,b,c,d       y       $1      c,
913 ^([^,]*,){3,}d  aaa,b,c,d       y       $1      c,
914 ^([^,]*,){0,3}d aaa,b,c,d       y       $1      c,
915 ^([^,]{1,3},){3}d       aaa,b,c,d       y       $1      c,
916 ^([^,]{1,3},){3,}d      aaa,b,c,d       y       $1      c,
917 ^([^,]{1,3},){0,3}d     aaa,b,c,d       y       $1      c,
918 ^([^,]{1,},){3}d        aaa,b,c,d       y       $1      c,
919 ^([^,]{1,},){3,}d       aaa,b,c,d       y       $1      c,
920 ^([^,]{1,},){0,3}d      aaa,b,c,d       y       $1      c,
921 ^([^,]{0,3},){3}d       aaa,b,c,d       y       $1      c,
922 ^([^,]{0,3},){3,}d      aaa,b,c,d       y       $1      c,
923 ^([^,]{0,3},){0,3}d     aaa,b,c,d       y       $1      c,
924 (?i)            y       -       -
925 (?a:((?u)\w)\W) \xC0\xC0        y       $&      \xC0\xC0
926 '(?!\A)x'm      a\nxb\n y       -       -
927 ^(a(b)?)+$      aba     y       -$1-$2- -a--
928 ^(aa(bb)?)+$    aabbaa  y       -$1-$2- -aa--
929 '^.{9}abc.*\n'm 123\nabcabcabcabc\n     y       -       -
930 ^(a)?a$ a       y       -$1-    --
931 ^(a)?(?(1)a|b)+$        a       n       -       -
932 ^(a\1?)(a\1?)(a\2?)(a\3?)$      aaaaaa  y       $1,$2,$3,$4     a,aa,a,aa
933 ^(a\1?){4}$     aaaaaa  y       $1      aa
934 ^(0+)?(?:x(1))? x1      y       -       -
935 ^([0-9a-fA-F]+)(?:x([0-9a-fA-F]+)?)(?:x([0-9a-fA-F]+))? 012cxx0190      y       -       -
936 ^(b+?|a){1,2}c  bbbac   y       $1      a
937 ^(b+?|a){1,2}c  bbbbac  y       $1      a
938 \((\w\. \w+)\)  cd. (A. Tw)     y       -$1-    -A. Tw-
939 ((?:aaaa|bbbb)cccc)?    aaaacccc        y       -       -
940 ((?:aaaa|bbbb)cccc)?    bbbbcccc        y       -       -
941 (a)?(a)+        a       y       $1:$2   :a      -
942 (ab)?(ab)+      ab      y       $1:$2   :ab     -
943 (abc)?(abc)+    abc     y       $1:$2   :abc    -
944 'b\s^'m a\nb\n  n       -       -
945 \ba     a       y       -       -
946 ^(a(??{"(?!)"})|(a)(?{1}))b     ab      y       $2      a       # [ID 20010811.006]
947 ab(?i)cd        AbCd    n       -       -       # [ID 20010809.023]
948 ab(?i)cd        abCd    y       -       -
949 (A|B)*(?(1)(CD)|(CD))   CD      y       $2-$3   -CD
950 (A|B)*(?(1)(CD)|(CD))   ABCD    y       $2-$3   CD-
951 (A|B)*?(?(1)(CD)|(CD))  CD      y       $2-$3   -CD     # [ID 20010803.016]
952 (A|B)*?(?(1)(CD)|(CD))  ABCD    y       $2-$3   CD-
953 '^(o)(?!.*\1)'i Oo      n       -       -
954 (.*)\d+\1       abc12bc y       $1      bc
955 (?m:(foo\s*$))  foo\n bar       y       $1      foo
956 (.*)c   abcd    y       $1      ab
957 (.*)(?=c)       abcd    y       $1      ab
958 (.*)(?=c)c      abcd    yB      $1      ab
959 (.*)(?=b|c)     abcd    y       $1      ab
960 (.*)(?=b|c)c    abcd    y       $1      ab
961 (.*)(?=c|b)     abcd    y       $1      ab
962 (.*)(?=c|b)c    abcd    y       $1      ab
963 (.*)(?=[bc])    abcd    y       $1      ab
964 (.*)(?=[bc])c   abcd    yB      $1      ab
965 (.*)(?<=b)      abcd    y       $1      ab
966 (.*)(?<=b)c     abcd    y       $1      ab
967 (.*)(?<=b|c)    abcd    y       $1      abc
968 (.*)(?<=b|c)c   abcd    y       $1      ab
969 (.*)(?<=c|b)    abcd    y       $1      abc
970 (.*)(?<=c|b)c   abcd    y       $1      ab
971 (.*)(?<=[bc])   abcd    y       $1      abc
972 (.*)(?<=[bc])c  abcd    y       $1      ab
973 (.*?)c  abcd    y       $1      ab
974 (.*?)(?=c)      abcd    y       $1      ab
975 (.*?)(?=c)c     abcd    yB      $1      ab
976 (.*?)(?=b|c)    abcd    y       $1      a
977 (.*?)(?=b|c)c   abcd    y       $1      ab
978 (.*?)(?=c|b)    abcd    y       $1      a
979 (.*?)(?=c|b)c   abcd    y       $1      ab
980 (.*?)(?=[bc])   abcd    y       $1      a
981 (.*?)(?=[bc])c  abcd    yB      $1      ab
982 (.*?)(?<=b)     abcd    y       $1      ab
983 (.*?)(?<=b)c    abcd    y       $1      ab
984 (.*?)(?<=b|c)   abcd    y       $1      ab
985 (.*?)(?<=b|c)c  abcd    y       $1      ab
986 (.*?)(?<=c|b)   abcd    y       $1      ab
987 (.*?)(?<=c|b)c  abcd    y       $1      ab
988 (.*?)(?<=[bc])  abcd    y       $1      ab
989 (.*?)(?<=[bc])c abcd    y       $1      ab
990 2(]*)?$\1       2       y       $&      2
991 (??{})  x       y       -       -
992 a(b)??  abc     y       <$1>    <>      # undef [perl #16773]
993 (\d{1,3}\.){3,} 128.134.142.8   y       <$1>    <142.>  # [perl #18019]
994 ^.{3,4}(.+)\1\z foobarbar       y       $1      bar     # 16 tests for [perl #23171]
995 ^(?:f|o|b){3,4}(.+)\1\z foobarbar       y       $1      bar
996 ^.{3,4}((?:b|a|r)+)\1\z foobarbar       y       $1      bar
997 ^(?:f|o|b){3,4}((?:b|a|r)+)\1\z foobarbar       y       $1      bar
998 ^.{3,4}(.+?)\1\z        foobarbar       y       $1      bar
999 ^(?:f|o|b){3,4}(.+?)\1\z        foobarbar       y       $1      bar
1000 ^.{3,4}((?:b|a|r)+?)\1\z        foobarbar       y       $1      bar
1001 ^(?:f|o|b){3,4}((?:b|a|r)+?)\1\z        foobarbar       y       $1      bar
1002 ^.{2,3}?(.+)\1\z        foobarbar       y       $1      bar
1003 ^(?:f|o|b){2,3}?(.+)\1\z        foobarbar       y       $1      bar
1004 ^.{2,3}?((?:b|a|r)+)\1\z        foobarbar       y       $1      bar
1005 ^(?:f|o|b){2,3}?((?:b|a|r)+)\1\z        foobarbar       y       $1      bar
1006 ^.{2,3}?(.+?)\1\z       foobarbar       y       $1      bar
1007 ^(?:f|o|b){2,3}?(.+?)\1\z       foobarbar       y       $1      bar
1008 ^.{2,3}?((?:b|a|r)+?)\1\z       foobarbar       y       $1      bar
1009 ^(?:f|o|b){2,3}?((?:b|a|r)+?)\1\z       foobarbar       y       $1      bar
1010 .*a(?!(b|cd)*e).*f      ......abef      n       -       -       # [perl #23030]
1011 x(?#    -       c       -       Sequence (?#... not terminated
1012 :x(?#:  -       c       -       Sequence (?#... not terminated
1013 (WORDS|WORD)S   WORDS   y       $1      WORD
1014 (X.|WORDS|X.|WORD)S     WORDS   y       $1      WORD
1015 (WORDS|WORLD|WORD)S     WORDS   y       $1      WORD
1016 (X.|WORDS|WORD|Y.)S     WORDS   y       $1      WORD
1017 (foo|fool|x.|money|parted)$     fool    y       $1      fool
1018 (x.|foo|fool|x.|money|parted|y.)$       fool    y       $1      fool
1019 (foo|fool|money|parted)$        fool    y       $1      fool
1020 (foo|fool|x.|money|parted)$     fools   n       -       -
1021 (x.|foo|fool|x.|money|parted|y.)$       fools   n       -       -
1022 (foo|fool|money|parted)$        fools   n       -       -
1023 (a|aa|aaa||aaaa|aaaaa|aaaaaa)(b|c)      aaaaaaaaaaaaaaab        y       $1$2    aaaaaab
1024 (a|aa|aaa||aaaa|aaaaa|aaaaaa)(??{$1&&""})(b|c)  aaaaaaaaaaaaaaab        y       $1$2    aaaaaab
1025 (a|aa|aaa|aaaa|aaaaa|aaaaaa)(??{$1&&"foo"})(b|c)        aaaaaaaaaaaaaaab        n       -       -
1026 ^(a*?)(?!(aa|aaaa)*$)   aaaaaaaaaaaaaaaaaaaa    y       $1      a       # [perl #34195]
1027 ^(a*?)(?!(aa|aaaa)*$)(?=a\z)    aaaaaaaa        y       $1      aaaaaaa
1028 ^(.)\s+.$(?(1)) A B     y       $1      A       # [perl #37688]
1029 (?:r?)*?r|(.{2,4})      abcde   y       $1      abcd
1030 (?!)+?|(.{2,4}) abcde   y       $1      abcd
1031 ^(a*?)(?!(a{6}|a{5})*$) aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       $+[1]   12      # super-linear cache bug may return 18
1032 ^((?>(?:aa)?b)?)        aab     y       $1      aab
1033 ^((?:aa)*)(?:X+((?:\d+|-)(?:X+(.+))?))?$        aaaaX5  y       $1      aaaa
1034 X(A|B||C|D)Y    XXXYYY  y       $&      XY      # Trie w/ NOTHING
1035 (?i:X([A]|[B]|y[Y]y|[D]|)Y)     XXXYYYB y       $&      XY      # Trie w/ NOTHING
1036 ^([a]{1})*$     aa      y       $1      a
1037 a(?!b(?!c))(..) abababc y       $1      bc      # test nested negatives
1038 a(?!b(?=a))(..) abababc y       $1      bc      # test nested lookaheads
1039 a(?!b(?!c(?!d(?!e))))...(.)     abxabcdxabcde   y       $1      e
1040 X(?!b+(?!(c+)*(?!(c+)*d))).*X   aXbbbbbbbcccccccccccccaaaX      y       -       -
1041 ^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P):        ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1042 ^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P):        ZEQQQX: y       $1      ZEQQQX
1043 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1044 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y       $1      ZEQQQX
1045 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]):   ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1046 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]):   ZEQQQX: y       $1      ZEQQQX
1047 ^(XXX|YYY|Z.Q*X|Z[TE]Q*P):      ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1048 ^(XXX|YYY|Z.Q*X|Z[TE]Q*P):      ZEQQQX: y       $1      ZEQQQX
1049 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P):       ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1050 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P):       ZEQQQX: y       $1      ZEQQQX
1051 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1052 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQX: y       $1      ZEQQQX
1053 X(?:ABCF[cC]x*|ABCD|ABCF):(?:DIT|DID|DIM)       XABCFCxxxxxxxxxx:DIM    y       $&      XABCFCxxxxxxxxxx:DIM
1054 (((ABCD|ABCE|ABCF)))(A|B|C[xy]*):       ABCFCxxxxxxxxxx:DIM     y       $&      ABCFCxxxxxxxxxx:
1055 (?=foo) foo     y       pos     0
1056 (?=foo) XfooY   y       pos     1
1057 .*(?=foo)       XfooY   y       pos     1
1058 (?<=foo)        foo     y       pos     3
1059 (?<=foo)        XfooY   y       pos     4
1060 .*(?<=foo)      foo     y       pos     3
1061 .*(?<=foo)      XfooY   y       pos     4
1062 (?<=foo)Y       XfooY   y       pos     5
1063 o(?<=foo)Y      ..XfooY..       y       pos     7
1064 X(?=foo)f       ..XfooY..       y       pos     4
1065 X(?=foo)        ..XfooY..       y       pos     3
1066 X(?<=foo.)[YZ]  ..XfooXY..      y       pos     8
1067 (?=XY*foo)      Xfoo    y       pos     0
1068 ^(?=XY*foo)     Xfoo    y       pos     0
1069 ^(??{"a+"})a    aa      y       $&      aa
1070 ^(?:(??{"a+"})|b)a      aa      y       $&      aa
1071 ^(??{chr 0x100}).$      \x{100}\x{100}  y       $&      \x{100}\x{100}
1072 ^(??{q(\x{100})}).      \x{100}\x{100}  y       $&      \x{100}\x{100}
1073 ^(??{q(.+)})\x{100}     \x{100}\x{100}  y       $&      \x{100}\x{100}
1074 ^(??{q(.)})\x{100}      \x{100}\x{100}  y       $&      \x{100}\x{100}
1075 ^(??{chr 0x100})\xbb    \x{100}\x{bb}   y       $&      \x{100}\x{bb}
1076 ^(.)(??{"(.)(.)"})(.)$  abcd    y       $1-$2   a-d
1077 ^(.)(??{"(bz+|.)(.)"})(.)$      abcd    y       $1-$2   a-d
1078 ^(.)((??{"(.)(cz+)"})|.)        abcd    y       $1-$2   a-b
1079 ^a(?>(??{q(b)}))(??{q(c)})d     abcd    y       -       -
1080 ^x(??{""})+$    x       y       $&      x
1081 ^(<(?:[^<>]+|(?3)|(?1))*>)()(!>!>!>)$   <<!>!>!>><>>!>!>!>      y       $1      <<!>!>!>><>>
1082 ^(<(?:[^<>]+|(?1))*>)$  <<><<<><>>>>    y       $1      <<><<<><>>>>
1083 ((?2)*)([fF]o+) fooFoFoo        y       $1-$2   fooFo-Foo
1084 (<(?:[^<>]+|(?R))*>)    <<><<<><>>>>    y       $1      <<><<<><>>>>
1085 (?<n>foo|bar|baz)       snofooewa       y       $1      foo
1086 (?<n>foo|bar|baz)       snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1087 (?<n>foo|bar|baz)(?<m>[ew]+)    snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1088 (?<n>foo|bar|baz)(?<m>[ew]+)    snofooewa       yM      $+{m}   ew      miniperl cannot load Tie::Hash::NamedCapture
1089 (?<n>foo)|(?<n>bar)|(?<n>baz)   snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1090 (?<n>foo)(??{ $+{n} })  snofooefoofoowaa        yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1091 (?P<n>foo|bar|baz)      snofooewa       y       $1      foo
1092 (?P<n>foo|bar|baz)      snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1093 (?P<n>foo|bar|baz)(?P<m>[ew]+)  snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1094 (?P<n>foo|bar|baz)(?P<m>[ew]+)  snofooewa       yM      $+{m}   ew      miniperl cannot load Tie::Hash::NamedCapture
1095 (?P<n>foo)|(?P<n>bar)|(?P<n>baz)        snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1096 (?P<n>foo)(??{ $+{n} }) snofooefoofoowaa        yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1097 (?P<=n>foo|bar|baz)     -       c       -       Group name must start with a non-digit word character
1098 (?P<!n>foo|bar|baz)     -       c       -       Group name must start with a non-digit word character
1099 (?PX<n>foo|bar|baz)     -       c       -       Sequence (?PX<...) not recognized
1100 /(?'n'foo|bar|baz)/     snofooewa       y       $1      foo
1101 /(?'n'foo|bar|baz)/     snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1102 /(?'n'foo|bar|baz)(?'m'[ew]+)/  snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1103 /(?'n'foo|bar|baz)(?'m'[ew]+)/  snofooewa       yM      $+{m}   ew      miniperl cannot load Tie::Hash::NamedCapture
1104 /(?'n'foo)|(?'n'bar)|(?<n>baz)/ snobazewa       yM      $+{n}   baz     miniperl cannot load Tie::Hash::NamedCapture
1105 /(?'n'foo)(??{ $+{n} })/        snofooefoofoowaa        yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1106 /(?'n'foo)\k<n>/        ..foofoo..      y       $1      foo
1107 /(?'n'foo)\k<n>/        ..foofoo..      yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1108 /(?<n>foo)\k'n'/        ..foofoo..      y       $1      foo
1109 /(?<n>foo)\k'n'/        ..foofoo..      yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1110 /(?:(?<n>foo)|(?<n>bar))\k<n>/  ..barbar..      yM      $+{n}   bar     miniperl cannot load Tie::Hash::NamedCapture
1111 /^(?'main'<(?:[^<>]+|(?&crap)|(?&main))*>)(?'empty')(?'crap'!>!>!>)$/   <<!>!>!>><>>!>!>!>      yM      $+{main}        <<!>!>!>><>>    miniperl cannot load Tie::Hash::NamedCapture
1112 /^(?'main'<(?:[^<>]+|(?&main))*>)$/     <<><<<><>>>>    y       $1      <<><<<><>>>>
1113 /(?'first'(?&second)*)(?'second'[fF]o+)/        fooFoFoo        yM      $+{first}-$+{second}    fooFo-Foo       miniperl cannot load Tie::Hash::NamedCapture
1114 (?<A>foo)?(?(<A>)bar|nada)      foobar  yM      $+{A}   foo     miniperl cannot load Tie::Hash::NamedCapture
1115 (?<A>foo)?(?(<A>)bar|nada)      foo-barnada     y       $&      nada
1116 (?<A>foo)?(?(1)bar|nada)        foo-barnada     y       $&      nada
1117 (?<A>foo(?(R)bar))?(?1) foofoobar       y       $1      foo
1118 (?<A>foo(?(R)bar))?(?1) foofoobar       y       $&      foofoobar
1119 (x)(?<A>foo(?(R&A)bar))?(?&A)   xfoofoobar      y       $2      foo
1120 (x)(?<A>foo(?(R&A)bar))?(?&A)   xfoofoobar      y       $&      xfoofoobar
1121 (x)(?<A>foo(?(R2)bar))?(?&A)    xfoofoobar      y       $2      foo
1122 (x)(?<A>foo(?(R2)bar))?(?&A)    xfoofoobar      y       $&      xfoofoobar
1123 (?1)(?(DEFINE)(blah))   blah    y       $&      blah
1124 /^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/      madamimadam     y       $&      madamimadam
1125 /^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/      madamiamadam    n       -       -
1126 /(a)?((?1))(fox)/       aafox   y       $1-$2-$3        a-a-fox
1127 /(a)*((?1))(fox)/       aafox   y       $1-$2-$3        a-a-fox
1128 /(a)+((?1))(fox)/       aafox   y       $1-$2-$3        a-a-fox
1129 /(a){1,100}((?1))(fox)/ aafox   y       $1-$2-$3        a-a-fox
1130 /(a){0,100}((?1))(fox)/ aafox   y       $1-$2-$3        a-a-fox
1131 /(ab)?((?1))(fox)/      ababfox y       $1-$2-$3        ab-ab-fox
1132 /(ab)*((?1))(fox)/      ababfox y       $1-$2-$3        ab-ab-fox
1133 /(ab)+((?1))(fox)/      ababfox y       $1-$2-$3        ab-ab-fox
1134 /(ab){1,100}((?1))(fox)/        ababfox y       $1-$2-$3        ab-ab-fox
1135 /(ab){0,100}((?1))(fox)/        ababfox y       $1-$2-$3        ab-ab-fox
1136 # possessive captures
1137 a++a    aaaaa   n       -       -
1138 a*+a    aaaaa   n       -       -
1139 a{1,5}+a        aaaaa   n       -       -
1140 a?+a    ab      n       -       -
1141 a++b    aaaaab  y       $&      aaaaab
1142 a*+b    aaaaab  y       $&      aaaaab
1143 a{1,5}+b        aaaaab  y       $&      aaaaab
1144 a?+b    ab      y       $&      ab
1145 fooa++a fooaaaaa        n       -       -
1146 fooa*+a fooaaaaa        n       -       -
1147 fooa{1,5}+a     fooaaaaa        n       -       -
1148 fooa?+a fooab   n       -       -
1149 fooa++b fooaaaaab       y       $&      fooaaaaab
1150 fooa*+b fooaaaaab       y       $&      fooaaaaab
1151 fooa{1,5}+b     fooaaaaab       y       $&      fooaaaaab
1152 fooa?+b fooab   y       $&      fooab
1153 (?:aA)++(?:aA)  aAaAaAaAaA      n       -       aAaAaAaAaA
1154 (aA)++(aA)      aAaAaAaAaA      n       -       aAaAaAaAaA
1155 (aA|bB)++(aA|bB)        aAaAbBaAbB      n       -       aAaAbBaAbB
1156 (?:aA|bB)++(?:aA|bB)    aAbBbBbBaA      n       -       aAbBbBbBaA
1157 (?:aA)*+(?:aA)  aAaAaAaAaA      n       -       aAaAaAaAaA
1158 (aA)*+(aA)      aAaAaAaAaA      n       -       aAaAaAaAaA
1159 (aA|bB)*+(aA|bB)        aAaAbBaAaA      n       -       aAaAbBaAaA
1160 (?:aA|bB)*+(?:aA|bB)    aAaAaAbBaA      n       -       aAaAaAbBaA
1161 (?:aA){1,5}+(?:aA)      aAaAaAaAaA      n       -       aAaAaAaAaA
1162 (aA){1,5}+(aA)  aAaAaAaAaA      n       -       aAaAaAaAaA
1163 (aA|bB){1,5}+(aA|bB)    aAaAbBaAaA      n       -       aAaAbBaAaA
1164 (?:aA|bB){1,5}+(?:aA|bB)        bBbBbBbBbB      n       -       bBbBbBbBbB
1165 (?:aA)?+(?:aA)  aAb     n       -       aAb
1166 (aA)?+(aA)      aAb     n       -       aAb
1167 (aA|bB)?+(aA|bB)        bBb     n       -       bBb
1168 (?:aA|bB)?+(?:aA|bB)    aAb     n       -       aAb
1169 (?:aA)++b       aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1170 (aA)++b aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1171 (aA|bB)++b      aAbBaAaAbBb     y       $&      aAbBaAaAbBb
1172 (?:aA|bB)++b    aAbBbBaAaAb     y       $&      aAbBbBaAaAb
1173 (?:aA)*+b       aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1174 (aA)*+b aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1175 (aA|bB)*+b      bBbBbBbBbBb     y       $&      bBbBbBbBbBb
1176 (?:aA|bB)*+b    bBaAbBbBaAb     y       $&      bBaAbBbBaAb
1177 (?:aA){1,5}+b   aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1178 (aA){1,5}+b     aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1179 (aA|bB){1,5}+b  bBaAbBaAbBb     y       $&      bBaAbBaAbBb
1180 (?:aA|bB){1,5}+b        aAbBaAbBbBb     y       $&      aAbBaAbBbBb
1181 (?:aA)?+b       aAb     y       $&      aAb
1182 (aA)?+b aAb     y       $&      aAb
1183 (aA|bB)?+b      bBb     y       $&      bBb
1184 (?:aA|bB)?+b    bBb     y       $&      bBb
1185 foo(?:aA)++(?:aA)       fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1186 foo(aA)++(aA)   fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1187 foo(aA|bB)++(aA|bB)     foobBbBbBaAaA   n       -       foobBbBbBaAaA
1188 foo(?:aA|bB)++(?:aA|bB) fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1189 foo(?:aA)*+(?:aA)       fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1190 foo(aA)*+(aA)   fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1191 foo(aA|bB)*+(aA|bB)     foobBaAbBaAaA   n       -       foobBaAbBaAaA
1192 foo(?:aA|bB)*+(?:aA|bB) fooaAaAbBbBaA   n       -       fooaAaAbBbBaA
1193 foo(?:aA){1,5}+(?:aA)   fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1194 foo(aA){1,5}+(aA)       fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1195 foo(aA|bB){1,5}+(aA|bB) fooaAbBbBaAaA   n       -       fooaAbBbBaAaA
1196 foo(?:aA|bB){1,5}+(?:aA|bB)     fooaAbBbBaAbB   n       -       fooaAbBbBaAbB
1197 foo(?:aA)?+(?:aA)       fooaAb  n       -       fooaAb
1198 foo(aA)?+(aA)   fooaAb  n       -       fooaAb
1199 foo(aA|bB)?+(aA|bB)     foobBb  n       -       foobBb
1200 foo(?:aA|bB)?+(?:aA|bB) fooaAb  n       -       fooaAb
1201 foo(?:aA)++b    fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1202 foo(aA)++b      fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1203 foo(aA|bB)++b   foobBaAbBaAbBb  y       $&      foobBaAbBaAbBb
1204 foo(?:aA|bB)++b fooaAaAbBaAaAb  y       $&      fooaAaAbBaAaAb
1205 foo(?:aA)*+b    fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1206 foo(aA)*+b      fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1207 foo(aA|bB)*+b   foobBbBaAaAaAb  y       $&      foobBbBaAaAaAb
1208 foo(?:aA|bB)*+b foobBaAaAbBaAb  y       $&      foobBaAaAbBaAb
1209 foo(?:aA){1,5}+b        fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1210 foo(aA){1,5}+b  fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1211 foo(aA|bB){1,5}+b       foobBaAaAaAaAb  y       $&      foobBaAaAaAaAb
1212 foo(?:aA|bB){1,5}+b     fooaAbBaAbBbBb  y       $&      fooaAbBaAbBbBb
1213 foo(?:aA)?+b    fooaAb  y       $&      fooaAb
1214 foo(aA)?+b      fooaAb  y       $&      fooaAb
1215 foo(aA|bB)?+b   foobBb  y       $&      foobBb
1216 foo(?:aA|bB)?+b foobBb  y       $&      foobBb
1217
1218 ([^()]++|\([^()]*\))+   ((abc(ade)ufh()()x      y       $&      abc(ade)ufh()()x
1219 round\(([^()]++)\)      _I(round(xs * sz),1)    y       $1      xs * sz
1220
1221 (foo[1x]|bar[2x]|baz[3x])+y     foo1bar2baz3y   y       $1      baz3
1222 (foo[1x]|bar[2x]|baz[3x])+y     foo1bar2baz3y   y       $&      foo1bar2baz3y
1223 (foo[1x]|bar[2x]|baz[3x])*y     foo1bar2baz3y   y       $1      baz3
1224 (foo[1x]|bar[2x]|baz[3x])*y     foo1bar2baz3y   y       $&      foo1bar2baz3y
1225
1226 ([yX].|WORDS|[yX].|WORD)S       WORDS   y       $1      WORD
1227 (WORDS|WORLD|WORD)S     WORDS   y       $1      WORD
1228 ([yX].|WORDS|WORD|[xY].)S       WORDS   y       $1      WORD
1229 (foo|fool|[zx].|money|parted)$  fool    y       $1      fool
1230 ([zx].|foo|fool|[zq].|money|parted|[yx].)$      fool    y       $1      fool
1231 (foo|fool|[zx].|money|parted)$  fools   n       -       -
1232 ([zx].|foo|fool|[qx].|money|parted|[py].)$      fools   n       -       -
1233
1234 ([yX].|WORDS|[yX].|WORD)+S      WORDS   y       $1      WORD
1235 (WORDS|WORLD|WORD)+S    WORDS   y       $1      WORD
1236 ([yX].|WORDS|WORD|[xY].)+S      WORDS   y       $1      WORD
1237 (foo|fool|[zx].|money|parted)+$ fool    y       $1      fool
1238 ([zx].|foo|fool|[zq].|money|parted|[yx].)+$     fool    y       $1      fool
1239 (foo|fool|[zx].|money|parted)+$ fools   n       -       -
1240 ([zx].|foo|fool|[qx].|money|parted|[py].)+$     fools   n       -       -
1241
1242 (x|y|z[QW])+(longish|loquatious|excessive|overblown[QW])+       xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1243 (x|y|z[QW])*(longish|loquatious|excessive|overblown[QW])*       xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1244 (x|y|z[QW]){1,5}(longish|loquatious|excessive|overblown[QW]){1,5}       xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1245
1246 (x|y|z[QW])++(longish|loquatious|excessive|overblown[QW])++     xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1247 (x|y|z[QW])*+(longish|loquatious|excessive|overblown[QW])*+     xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1248 (x|y|z[QW]){1,5}+(longish|loquatious|excessive|overblown[QW]){1,5}+     xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1249
1250 a*(?!)  aaaab   n       -       -
1251 a*(*FAIL)       aaaab   n       -       -
1252 a*(*F)  aaaab   n       -       -
1253
1254 (A(A|B(*ACCEPT)|C)D)(E) AB      y       $1      AB
1255 (A(A|B(*ACCEPT)|C)D)(E) ACDE    y       $1$2$3  ACDCE
1256
1257 (a)(?:(?-1)|(?+1))(b)   aab     y       $&-$1-$2        aab-a-b
1258 (a)(?:(?-1)|(?+1))(b)   abb     y       $1-$2   a-b
1259 (a)(?:(?-1)|(?+1))(b)   acb     n       -       -
1260
1261 (foo)(\g-2)     foofoo  y       $1-$2   foo-foo
1262 (foo)(\g-2)(foo)(\g-2)  foofoofoofoo    y       $1-$2-$3-$4     foo-foo-foo-foo
1263 (([abc]+) \g-1)(([abc]+) \g{-1})        abc abccba cba  y       $2-$4   abc-cba
1264 (a)(b)(c)\g1\g2\g3      abcabc  y       $1$2$3  abc
1265
1266 # \k<n> preceded by a literal
1267 /(?'n'foo) \k<n>/       ..foo foo..     y       $1      foo
1268 /(?'n'foo) \k<n>/       ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1269 /(?<n>foo) \k'n'/       ..foo foo..     y       $1      foo
1270 /(?<n>foo) \k'n'/       ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1271 /(?'a1'foo) \k'a1'/     ..foo foo..     yM      $+{a1}  foo     miniperl cannot load Tie::Hash::NamedCapture
1272 /(?<a1>foo) \k<a1>/     ..foo foo..     yM      $+{a1}  foo     miniperl cannot load Tie::Hash::NamedCapture
1273 /(?'_'foo) \k'_'/       ..foo foo..     yM      $+{_}   foo     miniperl cannot load Tie::Hash::NamedCapture
1274 /(?<_>foo) \k<_>/       ..foo foo..     yM      $+{_}   foo     miniperl cannot load Tie::Hash::NamedCapture
1275 /(?'_0_'foo) \k'_0_'/   ..foo foo..     yM      $+{_0_} foo     miniperl cannot load Tie::Hash::NamedCapture
1276 /(?<_0_>foo) \k<_0_>/   ..foo foo..     yM      $+{_0_} foo     miniperl cannot load Tie::Hash::NamedCapture
1277 /(?'0'foo) bar/ -       c       -       Group name must start with a non-digit word character
1278 /(?<0>foo) bar/ -       c       -       Group name must start with a non-digit word character
1279 /(?'12'foo) bar/        -       c       -       Group name must start with a non-digit word character
1280 /(?<12>foo) bar/        -       c       -       Group name must start with a non-digit word character
1281 /(?'1a'foo) bar/        -       c       -       Group name must start with a non-digit word character
1282 /(?<1a>foo) bar/        -       c       -       Group name must start with a non-digit word character
1283 /(?''foo) bar/  -       c       -       Group name must start with a non-digit word character
1284 /(?<>foo) bar/  -       c       -       Group name must start with a non-digit word character
1285 /foo \k'n'/     -       c       -       Reference to nonexistent named group
1286 /foo \k<n>/     -       c       -       Reference to nonexistent named group
1287 /foo \k'a1'/    -       c       -       Reference to nonexistent named group
1288 /foo \k<a1>/    -       c       -       Reference to nonexistent named group
1289 /foo \k'_'/     -       c       -       Reference to nonexistent named group
1290 /foo \k<_>/     -       c       -       Reference to nonexistent named group
1291 /foo \k'_0_'/   -       c       -       Reference to nonexistent named group
1292 /foo \k<_0_>/   -       c       -       Reference to nonexistent named group
1293 /foo \k'0'/     -       c       -       Group name must start with a non-digit word character
1294 /foo \k<0>/     -       c       -       Group name must start with a non-digit word character
1295 /foo \k'12'/    -       c       -       Group name must start with a non-digit word character
1296 /foo \k<12>/    -       c       -       Group name must start with a non-digit word character
1297 /foo \k'1a'/    -       c       -       Group name must start with a non-digit word character
1298 /foo \k<1a>/    -       c       -       Group name must start with a non-digit word character
1299 /foo \k''/      -       c       -       Group name must start with a non-digit word character
1300 /foo \k<>/      -       c       -       Group name must start with a non-digit word character
1301 /(?<as>as) (\w+) \k<as> (\w+)/  as easy as pie  y       $1-$2-$3        as-easy-pie
1302
1303 # \g{...} with a name as the argument 
1304 /(?'n'foo) \g{n}/       ..foo foo..     y       $1      foo
1305 /(?'n'foo) \g{n}/       ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1306 /(?<n>foo) \g{n}/       ..foo foo..     y       $1      foo
1307 /(?<n>foo) \g{n}/       ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1308 /(?<as>as) (\w+) \g{as} (\w+)/  as easy as pie  y       $1-$2-$3        as-easy-pie
1309
1310 # Python style named capture buffer stuff
1311 /(?P<n>foo)(?P=n)/      ..foofoo..      y       $1      foo
1312 /(?P<n>foo)(?P=n)/      ..foofoo..      yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1313 /(?:(?P<n>foo)|(?P<n>bar))(?P=n)/       ..barbar..      yM      $+{n}   bar     miniperl cannot load Tie::Hash::NamedCapture
1314 /^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/  madamimadam     y       $&      madamimadam
1315 /^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/  madamiamadam    n       -       -
1316 /(?P<n>foo) (?P=n)/     ..foo foo..     y       $1      foo
1317 /(?P<n>foo) (?P=n)/     ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1318 /(?P<as>as) (\w+) (?P=as) (\w+)/        as easy as pie  y       $1-$2-$3        as-easy-pie
1319
1320 #check that non identifiers as names are treated as the appropriate lookaround
1321 (?<=bar>)foo    bar>foo y       $&      foo
1322 (?<!bar>)foo    bar>foo n       -       -
1323 (?<=bar>ABC)foo bar>ABCfoo      y       $&      foo
1324 (?<!bar>ABC)foo bar>ABCfoo      n       -       -
1325 (?<bar>)foo     bar>ABCfoo      y       $&      foo
1326 (?<bar>ABC)foo  bar>ABCfoo      y       $&      ABCfoo
1327
1328 (?<=abcd(?<=(aaaabcd))) ..aaaabcd..     y       $1      aaaabcd
1329 (?=xy(?<=(aaxy)))       ..aaxy..        y       $1      aaxy
1330
1331 X(\w+)(?=\s)|X(\w+)     Xab     y       [$1-$2] [-ab]
1332
1333 #check that branch reset works ok.
1334 (?|(a)) a       y       $1-$+-$^N       a-a-a
1335 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) d!o!da  y       $1-$2-$3        !o!-o-a
1336 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) aabc    y       $1-$2-$3        a--c
1337 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) ixyjp   y       $1-$2-$3        x-y-p
1338 (?|(?|(a)|(b))|(?|(c)|(d)))     a       y       $1      a
1339 (?|(?|(a)|(b))|(?|(c)|(d)))     b       y       $1      b
1340 (?|(?|(a)|(b))|(?|(c)|(d)))     c       y       $1      c
1341 (?|(?|(a)|(b))|(?|(c)|(d)))     d       y       $1      d
1342 (.)(?|(.)(.)x|(.)d)(.)  abcde   y       $1-$2-$3-$4-$5- b-c--e--
1343 (\N)(?|(\N)(\N)x|(\N)d)(\N)     abcde   y       $1-$2-$3-$4-$5- b-c--e--
1344 (?|(?<foo>x))   x       yM      $+{foo} x       miniperl cannot load Tie::Hash::NamedCapture
1345 (?|(?<foo>x)|(?<bar>y)) x       yM      $+{foo} x       miniperl cannot load Tie::Hash::NamedCapture
1346 (?|(?<bar>y)|(?<foo>x)) x       yM      $+{foo} x       miniperl cannot load Tie::Hash::NamedCapture
1347 (?<bar>)(?|(?<foo>x))   x       yM      $+{foo} x       miniperl cannot load Tie::Hash::NamedCapture
1348 # Used to crash, because the last branch was ignored when the parens
1349 # were counted:
1350 (?|(b)|()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()(a))     a       y       $&      a
1351
1352 #Bug #41492
1353 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A)     a       y       $&      a
1354 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A)     aa      y       $&      aa
1355 \x{100}?(??{""})xxx     xxx     y       $&      xxx
1356
1357 foo(\R)bar      foo\r\nbar      y       $1      \r\n
1358 foo(\R)bar      foo\nbar        y       $1      \n
1359 foo(\R)bar      foo\rbar        y       $1      \r
1360
1361 foo(\R+)bar     foo\r\n\x{85}\r\n\nbar  y       $1      \r\n\x{85}\r\n\n
1362 (\V+)(\R)       foo\r\n\x{85}\r\n\nbar  y       $1-$2   foo-\r\n
1363 (\R+)(\V)       foo\r\n\x{85}\r\n\nbar  y       $1-$2   \r\n\x{85}\r\n\n-b
1364 foo(\R)bar      foo\x{85}bar    y       $1      \x{85}
1365 (\V)(\R)        foo\x{85}bar    y       $1-$2   o-\x{85}
1366 (\R)(\V)        foo\x{85}bar    y       $1-$2   \x{85}-b
1367 foo(\R)bar      foo\r\nbar      y       $1      \r\n
1368 (\V)(\R)        foo\r\nbar      y       $1-$2   o-\r\n
1369 (\R)(\V)        foo\r\nbar      y       $1-$2   \r\n-b
1370 foo(\R)bar      foo\r\nbar      y       $1      \r\n
1371 (\V)(\R)        foo\r\nbar      y       $1-$2   o-\r\n
1372 (\R)(\V)        foo\r\nbar      y       $1-$2   \r\n-b
1373 foo(\R)bar      foo\rbar        y       $1      \r
1374 (\V)(\R)        foo\rbar        y       $1-$2   o-\r
1375 (\R)(\V)        foo\rbar        y       $1-$2   \r-b
1376
1377 foo(\v+)bar     foo\r\n\x{85}\r\n\nbar  y       $1      \r\n\x{85}\r\n\n
1378 (\V+)(\v)       foo\r\n\x{85}\r\n\nbar  y       $1-$2   foo-\r
1379 (\v+)(\V)       foo\r\n\x{85}\r\n\nbar  y       $1-$2   \r\n\x{85}\r\n\n-b
1380 foo(\v)bar      foo\x{85}bar    y       $1      \x{85}
1381 (\V)(\v)        foo\x{85}bar    y       $1-$2   o-\x{85}
1382 (\v)(\V)        foo\x{85}bar    y       $1-$2   \x{85}-b
1383 foo(\v)bar      foo\rbar        y       $1      \r
1384 (\V)(\v)        foo\rbar        y       $1-$2   o-\r
1385 (\v)(\V)        foo\rbar        y       $1-$2   \r-b
1386
1387
1388 foo(\h+)bar     foo\t\x{A0}bar  y       $1      \t\x{A0}
1389 (\H+)(\h)       foo\t\x{A0}bar  y       $1-$2   foo-\t
1390 (\h+)(\H)       foo\t\x{A0}bar  y       $1-$2   \t\x{A0}-b
1391 foo(\h)bar      foo\x{A0}bar    y       $1      \x{A0}
1392 (\H)(\h)        foo\x{A0}bar    y       $1-$2   o-\x{A0}
1393 (\h)(\H)        foo\x{A0}bar    y       $1-$2   \x{A0}-b
1394 foo(\h)bar      foo\tbar        y       $1      \t
1395 (\H)(\h)        foo\tbar        y       $1-$2   o-\t
1396 (\h)(\H)        foo\tbar        y       $1-$2   \t-b
1397
1398 .*\z    foo\n   y       -$&-    --
1399 \N*\z   foo\n   y       -$&-    --
1400 .*\Z    foo\n   y       -$&-    -foo-
1401 \N*\Z   foo\n   y       -$&-    -foo-
1402 ^(?:(\d)x)?\d$  1       y       ${\(defined($1)?1:0)}   0       
1403 .*?(?:(\w)|(\w))x       abx     y       $1-$2   b-
1404
1405 0{50}   000000000000000000000000000000000000000000000000000     y       -       -
1406 ^a?(?=b)b       ab      y       $&      ab      # Bug #56690
1407 ^a*(?=b)b       ab      y       $&      ab      # Bug #56690
1408 />\d+$ \n/ix    >10\n   y       $&      >10
1409 />\d+$ \n/ix    >1\n    y       $&      >1
1410 /\d+$ \n/ix     >10\n   y       $&      10
1411 />\d\d$ \n/ix   >10\n   y       $&      >10
1412 />\d+$ \n/x     >10\n   y       $&      >10
1413
1414 # Two regressions in 5.8.x (only) introduced by change 30638
1415 # Simplification of the test failure in XML::LibXML::Simple:
1416 /^\s*i.*?o\s*$/s        io\n io y       -       -
1417 # As reported in #59168 by Father Chrysostomos:
1418 /(.*?)a(?!(a+)b\2c)/    baaabaac        y       $&-$1   baa-ba
1419 # [perl #60344] Regex lookbehind failure after an (if)then|else in perl 5.10
1420 /\A(?(?=db2)db2|\D+)(?<!processed)\.csv\z/xms   sql_processed.csv       n       -       -
1421 /\N{U+0100}/    \x{100} y       $&      \x{100} # Bug #59328
1422 /[a\N{U+0100}]/ \x{100} y       $&      \x{100}
1423 /[a\N{U+0100}]/ a       y       $&      a
1424
1425 # Verify that \N{U+...} forces Unicode semantics
1426 /\N{U+41}\x{c1}/i       a\x{e1} y       $&      a\x{e1}
1427 /[\N{U+41}\x{c1}]/i     \x{e1}  y       $&      \x{e1}
1428
1429 [\s][\S]        \x{a0}\x{a0}    n       -       -       # Unicode complements should not match same character
1430
1431 # was generating malformed utf8
1432 '[\x{100}\xff]'i        \x{ff}  y       $&      \x{ff}
1433
1434 ((??{ "(?:|)" }))\s     C\x20   y       -       -
1435
1436 # Verify that \ escapes the { after \N, and causes \N to match non-newline
1437 abc\N\{U+BEEF}  abc\n{UBEEF}    n               
1438 abc\N\{U+BEEF}  abc.{UBEEF}     y       $&      abc.{UBEEF}
1439 [abc\N\{U+BEEF}]        -       c       -       \\N in a character class must be a named character
1440
1441 # Verify that \N can be trailing and causes \N to match non-newline
1442 abc\N   abcd    y       $&      abcd
1443 abc\N   abc\n   n               
1444
1445 # Verify get errors.  For these, we need // or else puts it in single quotes,
1446 # and bypasses the lexer.
1447 /\N{U+}/        -       c       -       Invalid hexadecimal number
1448 # Below currently gives a misleading message
1449 /[\N{U+}]/      -       Sc      -       Unmatched
1450 /[\N{U+}]/      -       sc      -       Syntax error in (?[...])
1451 /abc\N{def/     -       c       -       Missing right brace
1452 /\N{U+4AG3}/    -       c       -       Illegal hexadecimal digit
1453 /[\N{U+4AG3}]/  -       c       -       Illegal hexadecimal digit
1454
1455 # And verify that in single quotes which bypasses the lexer, the regex compiler
1456 # figures it out.
1457 \N{U+}  -       c       -       Invalid hexadecimal number
1458 [\N{U+}]        -       c       -       Invalid hexadecimal number
1459 \N{U+4AG3}      -       c       -       Invalid hexadecimal number
1460 [\N{U+4AG3}]    -       c       -       Invalid hexadecimal number
1461 abc\N{def       -       c       -       \\N{NAME} must be resolved by the lexer
1462
1463 # Verify that under /x that still cant have space before left brace
1464 /abc\N {U+41}/x -       c       -       Missing braces
1465 /abc\N {SPACE}/x        -       c       -       Missing braces
1466
1467 # Verifies catches hex errors, and doesn't expose our . notation to the outside
1468 /\N{U+0xBEEF}/  -       c       -       Illegal hexadecimal digit
1469 /\N{U+BEEF.BEAD}/       -       c       -       Illegal hexadecimal digit
1470
1471 # Verify works in single quotish context; regex compiler delivers slightly different msg
1472 # \N{U+BEEF.BEAD} succeeds here, because can't completely hide it from the outside.
1473 \N{U+0xBEEF}    -       c       -       Invalid hexadecimal number
1474 \c`     -       c       -       \"\\c`\" is more clearly written simply as \"\\ \"
1475 \c1     -       c       -       \"\\c1\" is more clearly written simply as \"q\"
1476 \cA     \001    y       $&      \1
1477
1478 \400    \x{100} y       $&      \x{100}
1479 \600    \x{180} y       $&      \x{180}
1480 \777    \x{1FF} y       $&      \x{1FF}
1481 [a\400] \x{100} y       $&      \x{100}
1482 [b\600] \x{180} y       $&      \x{180}
1483 [c\777] \x{1FF} y       $&      \x{1FF}
1484 \o{120} \x{50}  y       $&      \x{50}
1485 \o{400} \x{100} y       $&      \x{100}
1486 \o{1000}        \x{200} y       $&      \x{200}
1487 [a\o{120}]      \x{50}  y       $&      \x{50}
1488 [a\o{400}]      \x{100} y       $&      \x{100}
1489 [a\o{1000}]     \x{200} y       $&      \x{200}
1490
1491 # The below were inserting a NULL
1492 \87     87      c       -       Reference to nonexistent group in regex
1493 a\87    a87     c       -       Reference to nonexistent group in regex
1494 a\97    a97     c       -       Reference to nonexistent group in regex
1495
1496 # The below was inserting a NULL into the character class.
1497 [\8\9]  \000    Sn      -       -
1498 [\8\9]  -       sc      $&      Unrecognized escape \\8 in character class
1499 [\8\9]  8       Sy      $&      8
1500 [\8\9]  9       Sy      $&      9
1501
1502 # Verify that reads 1-3 octal digits, and that \_ works in char class
1503 [\0]    \000    Sy      $&      \000
1504 [\0]    -       sc      -       Need exactly 3 octal digits
1505 [\07]   \007    Sy      $&      \007
1506 [\07]   -       sc      -       Need exactly 3 octal digits
1507 [\07]   7\000   Sn      -       -
1508 [\07]   -       sc      -       Need exactly 3 octal digits
1509 [\006]  \006    y       $&      \006
1510 [\006]  6\000   n       -       -
1511 [\0005] \0005   y       $&      \000
1512 [\0005] 5\000   y       $&      5
1513 [\_]    _       y       $&      _
1514
1515 # RT #79152
1516 (q1|.)*(q2|.)*(x(a|bc)*y){2,}   xayxay  y       $&      xayxay
1517 (q1|.)*(q2|.)*(x(a|bc)*y){2,3}  xayxay  y       $&      xayxay
1518 (q1|z)*(q2|z)*z{15}-.*?(x(a|bc)*y){2,3}Z        zzzzzzzzzzzzzzzz-xayxayxayxayZ  y       $&      zzzzzzzzzzzzzzzz-xayxayxayxayZ
1519
1520 (?:(?:)foo|bar|zot|rt78356)     foo     y       $&      foo
1521 /\xe0\pL/i      \xc0a   y       $&      \xc0a
1522
1523 # RT #85528
1524 (?{})[\x{100}]  \x{100} y       $&      \x{100}
1525
1526 # RT #85964
1527 ^m?(\S)(.*)\1$  aba     y       $1      a
1528 ^m?(\S)(.*)\1$  \tb\t   n       -       -
1529 ^m?(\s)(.*)\1$  \tb\t   y       $1      \t
1530 ^m?(\s)(.*)\1$  aba     n       -       -
1531 ^m?(\W)(.*)\1$  :b:     y       $1      :
1532 ^m?(\W)(.*)\1$  aba     n       -       -
1533 ^m?(\w)(.*)\1$  aba     y       $1      a
1534 ^m?(\w)(.*)\1$  :b:     n       -       -
1535 ^m?(\D)(.*)\1$  aba     y       $1      a
1536 ^m?(\D)(.*)\1$  5b5     n       -       -
1537 ^m?(\d)(.*)\1$  5b5     y       $1      5
1538 ^m?(\d)(.*)\1$  aba     n       -       -
1539
1540 # 17F is 'Long s';  This makes sure the a's in /aa can be separate
1541 /s/ai   \x{17F} y       $&      \x{17F}
1542 /s/aia  \x{17F} n       -       -
1543 /s/aia  S       y       $&      S
1544 /(?aia:s)/      \x{17F} n       -       -
1545 /(?aia:s)/      S       y       $&      S
1546
1547 # Normally 1E9E generates a multi-char fold, but not in inverted class;
1548 # See [perl #89750].  This makes sure that the simple fold gets generated
1549 # in that case, to DF.
1550 /[^\x{1E9E}]/i  \x{DF}  Sn      -       -
1551
1552 # RT #96354
1553 /^.*\d\H/       X1      n       -       -
1554 /^.*\d\V/       X1      n       -       -
1555
1556 # \p{L_} was being misinterpreted as \p{L}.  L_ matches cased letters, which
1557 # the ideograph below isn't, whereas it does match L
1558 /^\p{L_}/       \x{3400}        n       -       -
1559 /^\p{L}/        \x{3400}        y       $&      \x{3400}
1560
1561 # RT #89774
1562 /[s\xDF]a/ui    ssa     Sy      $&      ssa
1563 /[s\xDF]a/ui    sa      y       $&      sa
1564
1565 # RT #99928
1566 /^\R\x0A$/      \x0D\x0A        n       -       -
1567
1568 /ff/i   \x{FB00}\x{FB01}        y       $&      \x{FB00}
1569 /ff/i   \x{FB01}\x{FB00}        y       $&      \x{FB00}
1570 /fi/i   \x{FB01}\x{FB00}        y       $&      \x{FB01}
1571 /fi/i   \x{FB00}\x{FB01}        y       $&      \x{FB01}
1572 #
1573 # Make sure we don't see code blocks where there aren't, and vice-versa
1574 (?#( (?{1+)a    a       y       -       -
1575 'a# (?{1+'x     a       y       -       -
1576 ab[(?{1]        ab1     y       -       -
1577 ab[(?{1\](?{2]  ab2     y       -       -
1578 ab(?{"["})cd    abcd    y       -       -
1579 ab(??{"[x]"})cd abxcd   y       -       -
1580 ab\[(??{1})c    ab[1c   y       -       -
1581 ab\\[(??{1;})]c ab\\;c  y       -       -
1582 ab\\\[(??{1})c  ab\\[1c y       -       -
1583 ab[c\](??{"]d   abcd    y       -       -
1584 ab[c\\](??{"[x]"})d     ab\\xd  y       -       -
1585 ab[c\\\](??{"x"})]{3}d  ab\\](d y       -       -
1586
1587 # These test that doesn't cut-off matching too soon in the string for
1588 # multi-char folds
1589 /ffiffl/i       abcdef\x{FB03}\x{FB04}  y       $&      \x{FB03}\x{FB04}
1590 /\xdf\xdf/ui    abcdefssss      y       $&      ssss
1591
1592 /st/i   \x{DF}\x{FB05}  y       $&      \x{FB05}
1593 /ssst/i \x{DF}\x{FB05}  y       $&      \x{DF}\x{FB05}
1594
1595 # [perl #101970]
1596 /[[:lower:]]/i  \x{100} y       $&      \x{100}
1597 /[[:upper:]]/i  \x{101} y       $&      \x{101}
1598
1599 # Was matching 'ss' only and failing the entire match, not seeing the
1600 # alternative that would succeed
1601 /s\xDF/ui       \xDFs   y       $&      \xDFs
1602 /sst/ui s\N{LATIN SMALL LIGATURE ST}    y       $&      s\N{LATIN SMALL LIGATURE ST}
1603 /sst/ui s\N{LATIN SMALL LIGATURE LONG S T}      y       $&      s\N{LATIN SMALL LIGATURE LONG S T}
1604
1605 # /i properties shouldn't match more than the property itself
1606 /[[:ascii:]]/i  \N{KELVIN SIGN} n       -       -
1607
1608 # [[:lower:]]/i and [[:upper:]]/i should match what \p{Lower} and \p{Upper} do.
1609 # which is \p{Cased}, not \p{Alpha},
1610 /[[:lower:]]/i  \N{U+3400}      n       -       -
1611 /[[:upper:]]/i  \N{U+01BB}      n       -       -
1612
1613 # [perl #110648]
1614 [^\p{Alphabetic}]       \x{100} n       -       -
1615
1616 # [perl #111400].  Tests the first Y/N boundary above 255 for each of these.
1617 /[[:alnum:]]/   \x{2c1} y       -       -
1618 /[[:alnum:]]/   \x{2c2} n       -       -
1619 /[[:alpha:]]/   \x{2c1} y       -       -
1620 /[[:alpha:]]/   \x{2c2} n       -       -
1621 /[[:graph:]]/   \x{377} y       -       -
1622 /[[:graph:]]/   \x{378} n       -       -
1623 /[[:lower:]]/   \x{100} n       -       -
1624 /[[:lower:]]/   \x{101} y       -       -
1625 /[[:lower:]]/   \x{102} n       -       -
1626 /[[:print:]]/   \x{377} y       -       -
1627 /[[:print:]]/   \x{378} n       -       -
1628 /[[:punct:]]/   \x{37D} n       -       -
1629 /[[:punct:]]/   \x{37E} y       -       -
1630 /[[:punct:]]/   \x{388} n       -       -
1631 /[[:upper:]]/   \x{100} y       -       -
1632 /[[:upper:]]/   \x{101} n       -       -
1633 /[[:word:]]/    \x{2c1} y       -       -
1634 /[[:word:]]/    \x{2c2} n       -       -
1635
1636 # [perl #113400]
1637 /syntax OK\s+\z/si      t/bin/good.pl syntax OK\n       y       -       -
1638
1639 /^(.*?)\s*\|\s*(?:\/\s*|)'(.+)'$/       text|'sec'      y       <$1><$2>        <text><sec>
1640 /^(foo|)bar$/   bar     y       <$&>    <bar>
1641 /^(foo||baz)bar$/       bar     y       <$&>    <bar>
1642 /^(foo||baz)bar$/       bazbar  y       <$1>    <baz>
1643 /^(foo||baz)bar$/       foobar  y       <$1>    <foo>
1644
1645 /^(?:foo|)bar$/ bar     y       <$&>    <bar>
1646 /^(?:foo||baz)bar$/     bar     y       <$&>    <bar>
1647 /^(?:foo||baz)bar$/     bazbar  y       <$&>    <bazbar>
1648 /^(?:foo||baz)bar$/     foobar  y       <$&>    <foobar>
1649
1650 /^(?i:foo|)bar$/        bar     y       <$&>    <bar>
1651 /^(?i:foo||baz)bar$/    bar     y       <$&>    <bar>
1652 /^(?i:foo||baz)bar$/    bazbar  y       <$&>    <bazbar>
1653 /^(?i:foo||baz)bar$/    foobar  y       <$&>    <foobar>
1654
1655 # $^N, $+ on backtrackracking
1656 # BRANCH
1657 ^(.)(?:(..)|B)[CX]      ABCDE   y       $^N-$+  A-A     -
1658 # TRIE
1659 ^(.)(?:BC(.)|B)[CX]     ABCDE   y       $^N-$+  A-A     -
1660 # CURLYX
1661 ^(.)(?:(.)+)*[BX]       ABCDE   y       $^N-$+  A-A     -
1662 # CURLYM
1663 ^(.)(BC)*       ABCDE   y       $^N-$+  BC-BC   -
1664 ^(.)(BC)*[BX]   ABCDE   y       $^N-$+  A-A     -
1665 # CURLYN
1666 ^(.)(B)*.[DX]   ABCDE   y       $^N-$+  B-B     -
1667 ^(.)(B)*.[CX]   ABCDE   y       $^N-$+  A-A     -
1668
1669 # using 'return' in code blocks
1670 ^(A)(?{"xyz"})B$        AB      y       $1-$^R  A-xyz   -
1671 ^(A)(?{return "xyz"})B$ AB      y       $1-$^R  A-xyz   -
1672 ^(A)((??{"xyz"}))$      Axyz    y       $1-$2   A-xyz   -
1673 ^(A)((??{return "xyz"}))$       Axyz    y       $1-$2   A-xyz   -
1674 ^(A)((?(?{1})abc|xyz))$ Aabc    y       $1-$2   A-abc   -
1675 ^(A)((?(?{0})abc|xyz))$ Axyz    y       $1-$2   A-xyz   -
1676 ^(A)((?(?{return 1})abc|xyz))$  Aabc    y       $1-$2   A-abc   -
1677 ^(A)((?(?{return 0})abc|xyz))$  Axyz    y       $1-$2   A-xyz   -
1678
1679 # pattern modifier flags should propagate into returned (??{}) pattern
1680 # p,d,l not tested
1681
1682 /^(a)((??{"b"}))$/i     AB      y       $1-$2   A-B     -
1683 /^(A)((??{'B$'}))(\nC)$/m       AB\nC   y       $1-$2-$3        A-B-\nC -
1684 /^(A)((??{'.'}))(B)$/s  A\nB    y       $1-$2-$3        A-\n-B  -
1685 /^(A) ((??{' .'}))(B)$/x        A B     y       $1-$2-$3        A- -B   -
1686 /^((??{'\d'}))$/a       \x{660} n       -       -
1687 /^(??{"s"})$/i  \x{17F} y       -       -
1688 /^(??{"s"})$/ia \x{17F} y       -       -
1689 /^(??{"s"})$/iaa        \x{17F} n       -       -
1690 /^(??{'\w'})$/u \x{AA}  y       -       -
1691
1692 # #113670 ensure any captures to the right are invalidated when CURLY
1693 # and CURLYM backtrack
1694
1695 ^(?:(X)?(\d)|(X)?(\d\d))$       X12     y       $1-$2-$3-$4     --X-12
1696 ^(?:(XX)?(\d)|(XX)?(\d\d))$     XX12    y       $1-$2-$3-$4     --XX-12
1697
1698 # rt 113770
1699 \A(?>\[(?:(?:)(?:R){1}|T|V?|A)\])\z     [A]     y       $&      [A]
1700 # rt 114068
1701 /( [^z] $ [^z]+)/xm     aa\nbb\ncc\n    y       $1      a\nbb\ncc\n
1702
1703 # [perl #114220]
1704 /[\h]/  \x{A0}  y       $&      \xA0
1705 /[\H]/  \x{BF}  y       $&      \xBF
1706 /[\H]/  \x{A0}  n       -       -
1707 /[\H]/  \x{A1}  y       $&      \xA1
1708
1709 [^\n]+  \nb     y       $&      b
1710 [^\n]+  a\n     y       $&      a
1711
1712 # /a has no effect on properties
1713 (?a:\p{Any})    \x{100} y       $&      \x{100}
1714 (?aa:\p{Any})   \x{100} y       $&      \x{100}
1715
1716 \w      \x{200C}        y       $&      \x{200C}
1717 \W      \x{200C}        n       -       -
1718 \w      \x{200D}        y       $&      \x{200D}
1719 \W      \x{200D}        n       -       -
1720
1721 /^(?d:\xdf|_)*_/i       \x{17f}\x{17f}_ y       $&      \x{17f}\x{17f}_
1722 #
1723 # check that @-, @+ count chars, not bytes; especially if beginning of
1724 # string is not copied
1725
1726 (\x{100})       \x{2000}\x{2000}\x{2000}\x{100} y       $-[0]:$-[1]:$+[0]:$+[1] 3:3:4:4
1727
1728 ^\R{2}$ \r\n\r\n        y       $&      \r\n\r\n
1729
1730 /^\D{11}/a      \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}    n       -       -
1731 /^\S{11}/a      \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}    n       -       -
1732 /^\W{11}/a      \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}    n       -       -
1733
1734 # [ perl #114272]
1735 \Vn     \xFFn/  y       $&      \xFFn
1736
1737 /(?l:a?\w)/     b       y       $&      b
1738 m?^xy\?$?       xy?     y       $&      xy?
1739
1740 # check we have the right utf8ness as we switch back and forth between
1741 # patterns
1742 ^(\x{100}|a)(??{ qr/.?\xF7/d})  a_\xF7  y       -       -
1743
1744 # [perl #118375]
1745 /(a|(bc)){0,0}?xyz/     xyz     y       $&      xyz
1746 /( a | ( bc ) ) {0,0} ? xyz/x   xyz     y       $&      xyz
1747
1748 /(a|(bc)){0,0}+xyz/     xyz     y       $&      xyz
1749 /( a | ( bc ) ) {0,0} + xyz/x   xyz     y       $&      xyz
1750
1751 (A(*PRUNE)B|A(*PRUNE)C) AC      n       -       -
1752 (A(*PRUNE)B|A(*PRUNE)D|A(*PRUNE)C)      AC      n       -       -
1753 (A(*PRUNE)B|A(*PRUNE)C|A(*PRUNE)D)      AC      n       -       -
1754 ((A(*PRUNE)B|A(*PRUNE)C))       AC      n       -       -
1755 ((A(*PRUNE)B|A(*PRUNE)D|A(*PRUNE)C))    AC      n       -       -
1756 ((A(*PRUNE)B|A(*PRUNE)C|A(*PRUNE)D))    AC      n       -       -
1757
1758 A+?(*THEN)BC    AAABC   y       $&      ABC
1759 A+?(*PRUNE)BC   AAABC   y       $&      ABC
1760 A+(*THEN)BC     AAABC   y       $&      AAABC
1761 A+(*PRUNE)BC    AAABC   y       $&      AAABC
1762 A+?(*THEN)BC(?{})       AAABC   y       $&      ABC
1763 A+?(*PRUNE)BC(?{})      AAABC   y       $&      ABC
1764 A+(*THEN)BC(?{})        AAABC   y       $&      AAABC
1765 A+(*PRUNE)BC(?{})       AAABC   y       $&      AAABC
1766 # vim: softtabstop=0 noexpandtab
1767 /[#]/   a#b     y       $&      #
1768 /[#]b/  a#b     y       $&      #b
1769 /[#]/x  a#b     y       $&      #
1770 /[#]b/x a#b     y       $&      #b
1771 /[#](?{})/x     a#b     y       $&      #
1772 /[#](??{'b'})/x a#b     y       $&      #b
1773 /(?#)(?{})b/    a#b     y       $&      b
1774 /(?#)(??{'b'})/ a#b     y       $&      b
1775 /[(?#](?{})b/   a#b     y       $&      #b
1776 /[(?#](??{'b'})/        a#b     y       $&      #b
1777 /(?#)(?{})b/x   a#b     y       $&      b
1778 /(?#)(??{'b'})/x        a#b     y       $&      b