# This stops me getting screenfulls of syntax errors every time I accidentally
# run this file via a shell glob. The full format of this file is given
# in regexp.t
# Prior to the implementation of autoloading of \N{}, tests that used \N{name}
# could not go in this file, and were farmed out to other .t's, where they
# remain
#
# pat string y/n/etc expr expected-expr skip-reason comment
__END__
abc abc y $& abc
abc abc y $-[0] 0
abc abc y $+[0] 3
abc xbc n - -
abc axc n - -
abc abx n - -
abc xabcy y $& abc
abc xabcy y $-[0] 1
abc xabcy y $+[0] 4
abc ababc y $& abc
abc ababc y $-[0] 2
abc ababc y $+[0] 5
ab*c abc y $& abc
ab*c abc y $-[0] 0
ab*c abc y $+[0] 3
ab*bc abc y $& abc
ab*bc abc y $-[0] 0
ab*bc abc y $+[0] 3
ab*bc abbc y $& abbc
ab*bc abbc y $-[0] 0
ab*bc abbc y $+[0] 4
ab*bc abbbbc y $& abbbbc
ab*bc abbbbc y $-[0] 0
ab*bc abbbbc y $+[0] 6
.{1} abbbbc y $& a
.{1} abbbbc y $-[0] 0
.{1} abbbbc y $+[0] 1
.{3,4} abbbbc y $& abbb
.{3,4} abbbbc y $-[0] 0
.{3,4} abbbbc y $+[0] 4
\N{1} abbbbc y $& a
\N{1} abbbbc y $-[0] 0
\N{1} abbbbc y $+[0] 1
/\N {1}/x abbbbc y $& a
/\N {1}/x abbbbc y $-[0] 0
/\N {1}/x abbbbc y $+[0] 1
\N{3,4} abbbbc y $& abbb
\N{3,4} abbbbc y $-[0] 0
\N{3,4} abbbbc y $+[0] 4
/\N {3,4}/x abbbbc y $& abbb
/\N {3,4}/x abbbbc y $-[0] 0
/\N {3,4}/x abbbbc y $+[0] 4
ab{0,}bc abbbbc y $& abbbbc
ab{0,}bc abbbbc y $-[0] 0
ab{0,}bc abbbbc y $+[0] 6
ab+bc abbc y $& abbc
ab+bc abbc y $-[0] 0
ab+bc abbc y $+[0] 4
ab+bc abc n - -
ab+bc abq n - -
ab{1,}bc abq n - -
ab+bc abbbbc y $& abbbbc
ab+bc abbbbc y $-[0] 0
ab+bc abbbbc y $+[0] 6
ab{1,}bc abbbbc y $& abbbbc
ab{1,}bc abbbbc y $-[0] 0
ab{1,}bc abbbbc y $+[0] 6
ab{1,3}bc abbbbc y $& abbbbc
ab{1,3}bc abbbbc y $-[0] 0
ab{1,3}bc abbbbc y $+[0] 6
ab{3,4}bc abbbbc y $& abbbbc
ab{3,4}bc abbbbc y $-[0] 0
ab{3,4}bc abbbbc y $+[0] 6
ab{4,5}bc abbbbc n - -
ab?bc abbc y $& abbc
ab?bc abc y $& abc
ab{0,1}bc abc y $& abc
ab?bc abbbbc n - -
ab?c abc y $& abc
ab{0,1}c abc y $& abc
^abc$ abc y $& abc
^abc$ abcc n - -
^abc abcc y $& abc
^abc$ aabc n - -
abc$ aabc y $& abc
abc$ aabcd n - -
^ abc y $&
$ abc y $&
a.c abc y $& abc
a.c axc y $& axc
a\Nc abc y $& abc
/a\N c/x abc y $& abc
a.*c axyzc y $& axyzc
a\N*c axyzc y $& axyzc
/a\N *c/x axyzc y $& axyzc
a.*c axyzd n - -
a\N*c axyzd n - -
/a\N *c/x axyzd n - -
a[bc]d abc n - -
a[bc]d abd y $& abd
a[b]d abd y $& abd
[a][b][d] abd y $& abd
.[b]. abd y $& abd
.[b]. aBd n - -
(?i:.[b].) abd y $& abd
(?i:\N[b]\N) abd y $& abd
a[b-d]e abd n - -
a[b-d]e ace y $& ace
a[b-d] aac y $& ac
a[-b] a- y $& a-
a[b-] a- y $& a-
a[b-a] - c - Invalid [] range
a[]b - c - Unmatched [
a[ - c - Unmatched [
a] a] y $& a]
a[]]b a]b y $& a]b
a[^bc]d aed y $& aed
a[^bc]d abd n - -
a[^-b]c adc y $& adc
a[^-b]c a-c n - -
a[^]b]c a]c n - -
a[^]b]c adc y $& adc
\ba\b a- y - -
\ba\b -a y - -
\ba\b -a- y - -
\by\b xy n - -
\by\b yz n - -
\by\b xyz n - -
\Ba\B a- n - -
\Ba\B -a n - -
\Ba\B -a- n - -
\By\b xy y - -
\By\b xy y $-[0] 1
\By\b xy y $+[0] 2
\By\b xy y - -
\by\B yz y - -
\By\B xyz y - -
\b n - -
\b{gcb} n - -
\b{lb} n - -
\b{sb} n - -
\b{wb} n - -
\B y - -
\B{gcb} y - -
\B{lb} y - -
\B{sb} y - -
\B{wb} y - -
\w a y - -
\w - n - -
\W a n - -
\W - y - -
a\sb a b y - -
a\sb a-b n - -
a\Sb a b n - -
a\Sb a-b y - -
\d 1 y - -
\d - n - -
\D 1 n - -
\D - y - -
[\w] a y - -
[\w] - n - -
[\W] a n - -
[\W] - y - -
a[\s]b a b y - -
a[\s]b a-b n - -
a[\S]b a b n - -
a[\S]b a-b y - -
[\d] 1 y - -
[\d] - n - -
[\D] 1 n - -
[\D] - y - -
ab|cd abc y $& ab
ab|cd abcd y $& ab
()ef def y $&-$1 ef-
()ef def y $-[0] 1
()ef def y $+[0] 3
()\x{100}\x{1000} d\x{100}\x{1000} y $+[0] 3
()ef def y $-[1] 1
()ef def y $+[1] 1
*a - c - Quantifier follows nothing
(|*)b - c - Quantifier follows nothing
(*)b - c - Unknown verb
$b b n - -
a\ - c - Search pattern not terminated
a\(b a(b y $&-$1 a(b-
a\(*b ab y $& ab
a\(*b a((b y $& a((b
a\\b a\\b y $& a\\b
abc) - c - Unmatched )
(abc - c - Unmatched (
((a)) abc y $&-$1-$2 a-a-a
((a)) abc y $-[0]-$-[1]-$-[2] 0-0-0
((a)) abc y $+[0]-$+[1]-$+[2] 1-1-1
((a)) abc b @- 0 0 0
((a)) abc b @+ 1 1 1
(a)b(c) abc y $&-$1-$2 abc-a-c
(a)b(c) abc y $-[0]-$-[1]-$-[2] 0-0-2
(a)b(c) abc y $+[0]-$+[1]-$+[2] 3-1-3
a+b+c aabbabc y $& abc
a{1,}b{1,}c aabbabc y $& abc
a** - c - Nested quantifiers
a.+?c abcabc y $& abc
(a+|b)* ab y $&-$1 ab-b
(a+|b)* ab y $-[0] 0
(a+|b)* ab y $+[0] 2
(a+|b)* ab y $-[1] 1
(a+|b)* ab y $+[1] 2
(a+|b){0,} ab y $&-$1 ab-b
(a+|b)+ ab y $&-$1 ab-b
(a+|b){1,} ab y $&-$1 ab-b
(a+|b)? ab y $&-$1 a-a
(a+|b){0,1} ab y $&-$1 a-a
)( - c - Unmatched )
[^ab]* cde y $& cde
abc n - -
a* y $&
([abc])*d abbbcd y $&-$1 abbbcd-c
([abc])*bcd abcd y $&-$1 abcd-a
a|b|c|d|e e y $& e
(a|b|c|d|e)f ef y $&-$1 ef-e
(a|b|c|d|e)f ef y $-[0] 0
(a|b|c|d|e)f ef y $+[0] 2
(a|b|c|d|e)f ef y $-[1] 0
(a|b|c|d|e)f ef y $+[1] 1
abcd*efg abcdefg y $& abcdefg
ab* xabyabbbz y $& ab
ab* xayabbbz y $& a
(ab|cd)e abcde y $&-$1 cde-cd
[abhgefdc]ij hij y $& hij
^(ab|cd)e abcde n x$1y xy
(abc|)ef abcdef y $&-$1 ef-
(a|b)c*d abcd y $&-$1 bcd-b
(ab|ab*)bc abc y $&-$1 abc-a
a([bc]*)c* abc y $&-$1 abc-bc
a([bc]*)(c*d) abcd y $&-$1-$2 abcd-bc-d
a([bc]*)(c*d) abcd y $-[0] 0
a([bc]*)(c*d) abcd y $+[0] 4
a([bc]*)(c*d) abcd y $-[1] 1
a([bc]*)(c*d) abcd y $+[1] 3
a([bc]*)(c*d) abcd y $-[2] 3
a([bc]*)(c*d) abcd y $+[2] 4
a([bc]+)(c*d) abcd y $&-$1-$2 abcd-bc-d
a([bc]*)(c+d) abcd y $&-$1-$2 abcd-b-cd
a([bc]*)(c+d) abcd y $-[0] 0
a([bc]*)(c+d) abcd y $+[0] 4
a([bc]*)(c+d) abcd y $-[1] 1
a([bc]*)(c+d) abcd y $+[1] 2
a([bc]*)(c+d) abcd y $-[2] 2
a([bc]*)(c+d) abcd y $+[2] 4
a[bcd]*dcdcde adcdcde y $& adcdcde
a[bcd]+dcdcde adcdcde n - -
(ab|a)b*c abc y $&-$1 abc-ab
(ab|a)b*c abc y $-[0] 0
(ab|a)b*c abc y $+[0] 3
(ab|a)b*c abc y $-[1] 0
(ab|a)b*c abc y $+[1] 2
((a)(b)c)(d) abcd y $1-$2-$3-$4 abc-a-b-d
((a)(b)c)(d) abcd y $-[0] 0
((a)(b)c)(d) abcd y $+[0] 4
((a)(b)c)(d) abcd y $-[1] 0
((a)(b)c)(d) abcd y $+[1] 3
((a)(b)c)(d) abcd y $-[2] 0
((a)(b)c)(d) abcd y $+[2] 1
((a)(b)c)(d) abcd y $-[3] 1
((a)(b)c)(d) abcd y $+[3] 2
((a)(b)c)(d) abcd y $-[4] 3
((a)(b)c)(d) abcd y $+[4] 4
[a-zA-Z_][a-zA-Z0-9_]* alpha y $& alpha
[_A-Z] } n - - # This could match on EBCDIC if A-Z not excluding things in middle
^a(bc+|b[eh])g|.h$ abh y $&-$1 bh-
(bc+d$|ef*g.|h?i(j|k)) effgz y $&-$1-$2 effgz-effgz-
(bc+d$|ef*g.|h?i(j|k)) ij y $&-$1-$2 ij-ij-j
(bc+d$|ef*g.|h?i(j|k)) effg n - -
(bc+d$|ef*g.|h?i(j|k)) bcdd n - -
(bc+d$|ef*g.|h?i(j|k)) reffgz y $&-$1-$2 effgz-effgz-
((((((((((a)))))))))) a y $10 a
((((((((((a)))))))))) a y $-[0] 0
((((((((((a)))))))))) a y $+[0] 1
((((((((((a)))))))))) a y $-[10] 0
((((((((((a)))))))))) a y $+[10] 1
((((((((((a))))))))))\10 aa y $& aa
((((((((((a))))))))))${bang} aa n - -
((((((((((a))))))))))${bang} a! y $& a!
(((((((((a))))))))) a y $& a
multiple words of text uh-uh n - -
multiple words multiple words, yeah y $& multiple words
(.*)c(.*) abcde y $&-$1-$2 abcde-ab-de
\((.*), (.*)\) (a, b) y ($2, $1) (b, a)
[k] ab n - -
abcd abcd y $&-\$&-\\$& abcd-\$&-\\abcd
a(bc)d abcd y $1-\$1-\\$1 bc-\$1-\\bc
a[-]?c ac y $& ac
(abc)\1 abcabc y $1 abc
([a-c]*)\1 abcabc y $1 abc
\1 - c - Reference to nonexistent group
\2 - c - Reference to nonexistent group
\g1 - c - Reference to nonexistent group
\g-1 - c - Reference to nonexistent or unclosed group
\g{1} - c - Reference to nonexistent group
\g{-1} - c - Reference to nonexistent or unclosed group
\g0 - c - Reference to invalid group 0
\g-0 - c - Reference to invalid group 0
\g{0} - c - Reference to invalid group 0
\g{-0} - c - Reference to invalid group 0
(a)|\1 a y - -
(a)|\1 x n - Reference to group in different branch
(?:(b)?a)\1 a n - Reference to group that did not match
(a)|\2 - c - Reference to nonexistent group
(([a-c])b*?\2)* ababbbcbc y $&-$1-$2 ababb-bb-b
(([a-c])b*?\2){3} ababbbcbc y $&-$1-$2 ababbbcbc-cbc-c
((\3|b)\2(a)x)+ aaxabxbaxbbx n - -
((\3|b)\2(a)x)+ aaaxabaxbaaxbbax y $&-$1-$2-$3 bbax-bbax-b-a
((\3|b)\2(a)){2,} bbaababbabaaaaabbaaaabba y $&-$1-$2-$3 bbaaaabba-bba-b-a
#Bug #3589 - up to perl-5.6.0 matches incorrectly, from 5.6.1 not anymore
^((.)?a\2)+$ babadad n - -
(a)|(b) b y $-[0] 0
(a)|(b) b y $+[0] 1
(a)|(b) b y x$-[1] x
(a)|(b) b y x$+[1] x
(a)|(b) b y $-[2] 0
(a)|(b) b y $+[2] 1
'abc'i ABC y $& ABC
'abc'i XBC n - -
'abc'i AXC n - -
'abc'i ABX n - -
'abc'i XABCY y $& ABC
'abc'i ABABC y $& ABC
'ab*c'i ABC y $& ABC
'ab*bc'i ABC y $& ABC
'ab*bc'i ABBC y $& ABBC
'ab*?bc'i ABBBBC y $& ABBBBC
'ab{0,}?bc'i ABBBBC y $& ABBBBC
'ab+?bc'i ABBC y $& ABBC
'ab+bc'i ABC n - -
'ab+bc'i ABQ n - -
'ab{1,}bc'i ABQ n - -
'ab+bc'i ABBBBC y $& ABBBBC
'ab{1,}?bc'i ABBBBC y $& ABBBBC
'ab{1,3}?bc'i ABBBBC y $& ABBBBC
'ab{3,4}?bc'i ABBBBC y $& ABBBBC
'ab{4,5}?bc'i ABBBBC n - -
'ab??bc'i ABBC y $& ABBC
'ab??bc'i ABC y $& ABC
'ab{0,1}?bc'i ABC y $& ABC
'ab??bc'i ABBBBC n - -
'ab??c'i ABC y $& ABC
'ab{0,1}?c'i ABC y $& ABC
'^abc$'i ABC y $& ABC
'^abc$'i ABCC n - -
'^abc'i ABCC y $& ABC
'^abc$'i AABC n - -
'abc$'i AABC y $& ABC
'^'i ABC y $&
'$'i ABC y $&
'a.c'i ABC y $& ABC
'a.c'i AXC y $& AXC
'a\Nc'i ABC y $& ABC
'a.*?c'i AXYZC y $& AXYZC
'a.*c'i AXYZD n - -
'a[bc]d'i ABC n - -
'a[bc]d'i ABD y $& ABD
'a[b-d]e'i ABD n - -
'a[b-d]e'i ACE y $& ACE
'a[b-d]'i AAC y $& AC
'a[-b]'i A- y $& A-
'a[b-]'i A- y $& A-
'a[b-a]'i - c - Invalid [] range
'a[]b'i - c - Unmatched [
'a['i - c - Unmatched [
'a]'i A] y $& A]
'a[]]b'i A]B y $& A]B
'a[^bc]d'i AED y $& AED
'a[^bc]d'i ABD n - -
'a[^-b]c'i ADC y $& ADC
'a[^-b]c'i A-C n - -
'a[^]b]c'i A]C n - -
'a[^]b]c'i ADC y $& ADC
'ab|cd'i ABC y $& AB
'ab|cd'i ABCD y $& AB
'()ef'i DEF y $&-$1 EF-
'*a'i - c - Quantifier follows nothing
'(|*)b'i - c - Quantifier follows nothing
'(*)b'i - c - Unknown verb
'$b'i B n - -
'a\'i - c - Search pattern not terminated
'a\(b'i A(B y $&-$1 A(B-
'a\(*b'i AB y $& AB
'a\(*b'i A((B y $& A((B
'a\\b'i A\\B y $& A\\B
'abc)'i - c - Unmatched )
'(abc'i - c - Unmatched (
'((a))'i ABC y $&-$1-$2 A-A-A
'(a)b(c)'i ABC y $&-$1-$2 ABC-A-C
'a+b+c'i AABBABC y $& ABC
'a{1,}b{1,}c'i AABBABC y $& ABC
'a**'i - c - Nested quantifiers
'a.+?c'i ABCABC y $& ABC
'a.*?c'i ABCABC y $& ABC
'a.{0,5}?c'i ABCABC y $& ABC
'(a+|b)*'i AB y $&-$1 AB-B
'(a+|b){0,}'i AB y $&-$1 AB-B
'(a+|b)+'i AB y $&-$1 AB-B
'(a+|b){1,}'i AB y $&-$1 AB-B
'(a+|b)?'i AB y $&-$1 A-A
'(a+|b){0,1}'i AB y $&-$1 A-A
'(a+|b){0,1}?'i AB y $&-$1 -
')('i - c - Unmatched )
'[^ab]*'i CDE y $& CDE
'abc'i n - -
'a*'i y $&
'([abc])*d'i ABBBCD y $&-$1 ABBBCD-C
'([abc])*bcd'i ABCD y $&-$1 ABCD-A
'a|b|c|d|e'i E y $& E
'(a|b|c|d|e)f'i EF y $&-$1 EF-E
'abcd*efg'i ABCDEFG y $& ABCDEFG
'ab*'i XABYABBBZ y $& AB
'ab*'i XAYABBBZ y $& A
'(ab|cd)e'i ABCDE y $&-$1 CDE-CD
'[abhgefdc]ij'i HIJ y $& HIJ
'^(ab|cd)e'i ABCDE n x$1y XY
'(abc|)ef'i ABCDEF y $&-$1 EF-
'(a|b)c*d'i ABCD y $&-$1 BCD-B
'(ab|ab*)bc'i ABC y $&-$1 ABC-A
'a([bc]*)c*'i ABC y $&-$1 ABC-BC
'a([bc]*)(c*d)'i ABCD y $&-$1-$2 ABCD-BC-D
'a([bc]+)(c*d)'i ABCD y $&-$1-$2 ABCD-BC-D
'a([bc]*)(c+d)'i ABCD y $&-$1-$2 ABCD-B-CD
'a[bcd]*dcdcde'i ADCDCDE y $& ADCDCDE
'a[bcd]+dcdcde'i ADCDCDE n - -
'(ab|a)b*c'i ABC y $&-$1 ABC-AB
'((a)(b)c)(d)'i ABCD y $1-$2-$3-$4 ABC-A-B-D
'[a-zA-Z_][a-zA-Z0-9_]*'i ALPHA y $& ALPHA
'^a(bc+|b[eh])g|.h$'i ABH y $&-$1 BH-
'(bc+d$|ef*g.|h?i(j|k))'i EFFGZ y $&-$1-$2 EFFGZ-EFFGZ-
'(bc+d$|ef*g.|h?i(j|k))'i IJ y $&-$1-$2 IJ-IJ-J
'(bc+d$|ef*g.|h?i(j|k))'i EFFG n - -
'(bc+d$|ef*g.|h?i(j|k))'i BCDD n - -
'(bc+d$|ef*g.|h?i(j|k))'i REFFGZ y $&-$1-$2 EFFGZ-EFFGZ-
'((((((((((a))))))))))'i A y $10 A
'((((((((((a))))))))))\10'i AA y $& AA
'((((((((((a))))))))))${bang}'i AA n - -
'((((((((((a))))))))))${bang}'i A! y $& A!
'(((((((((a)))))))))'i A y $& A
'(?:(?:(?:(?:(?:(?:(?:(?:(?:(a))))))))))'i A y $1 A
'(?:(?:(?:(?:(?:(?:(?:(?:(?:(a|b|c))))))))))'i C y $1 C
'multiple words of text'i UH-UH n - -
'multiple words'i MULTIPLE WORDS, YEAH y $& MULTIPLE WORDS
'(.*)c(.*)'i ABCDE y $&-$1-$2 ABCDE-AB-DE
'\((.*), (.*)\)'i (A, B) y ($2, $1) (B, A)
'[k]'i AB n - -
'abcd'i ABCD y $&-\$&-\\$& ABCD-\$&-\\ABCD
'a(bc)d'i ABCD y $1-\$1-\\$1 BC-\$1-\\BC
'a[-]?c'i AC y $& AC
'(abc)\1'i ABCABC y $1 ABC
'([a-c]*)\1'i ABCABC y $1 ABC
a(?!b). abad y $& ad
(?=)a a y $& a
a(?=d). abad y $& ad
a(?=c|d). abad y $& ad
a(?:b|c|d)(.) ace y $1 e
a(?:b|c|d)*(.) ace y $1 e
a(?:b|c|d)+?(.) ace y $1 e
a(?:b|c|d)+?(.) acdbcdbe y $1 d
a(?:b|c|d)+(.) acdbcdbe y $1 e
a(?:b|c|d){2}(.) acdbcdbe y $1 b
a(?:b|c|d){4,5}(.) acdbcdbe y $1 b
a(?:b|c|d){4,5}?(.) acdbcdbe y $1 d
((foo)|(bar))* foobar y $1-$2-$3 bar-foo-bar
:(?: - c - Sequence (? incomplete
a(?:b|c|d){6,7}(.) acdbcdbe y $1 e
a(?:b|c|d){6,7}?(.) acdbcdbe y $1 e
a(?:b|c|d){5,6}(.) acdbcdbe y $1 e
a(?:b|c|d){5,6}?(.) acdbcdbe y $1 b
a(?:b|c|d){5,7}(.) acdbcdbe y $1 e
a(?:b|c|d){5,7}?(.) acdbcdbe y $1 b
a(?:b|(c|e){1,2}?|d)+?(.) ace y $1$2 ce
^(.+)?B AB y $1 A
^([^a-z])|(\^)$ . y $1 .
^[<>]& <&OUT y $& <&
^(a\1?){4}$ aaaaaaaaaa y $1 aaaa
^(a\1?){4}$ aaaaaaaaa n - -
^(a\1?){4}$ aaaaaaaaaaa n - -
^(a(?(1)\1)){4}$ aaaaaaaaaa y $1 aaaa
^(a(?(1)\1)){4}$ aaaaaaaaa n - -
^(a(?(1)\1)){4}$ aaaaaaaaaaa n - -
((a{4})+) aaaaaaaaa y $1 aaaaaaaa
(((aa){2})+) aaaaaaaaaa y $1 aaaaaaaa
(((a{2}){2})+) aaaaaaaaaa y $1 aaaaaaaa
(?:(f)(o)(o)|(b)(a)(r))* foobar y $1:$2:$3:$4:$5:$6 f:o:o:b:a:r
(?<=a)b ab y $& b
(?<=a)b cb n - -
(?<=a)b b n - -
(?<!c)b ab y $& b
(?<!c)b cb n - -
(?<!c)b b y - -
(?<!c)b b y $& b
(?<%)b - c - Group name must start with a non-digit word character
(?:..)*a aba y $& aba
(?:..)*?a aba y $& a
^(?:b|a(?=(.)))*\1 abc y $& ab
^(){3,5} abc y a$1 a
^(a+)*ax aax y $1 a
^((a|b)+)*ax aax y $1 a
^((a|bc)+)*ax aax y $1 a
(a|x)*ab cab y y$1 y
(a)*ab cab y y$1 y
(?:(?i)a)b ab y $& ab
((?i)a)b ab y $&:$1 ab:a
(?:(?i)a)b Ab y $& Ab
((?i)a)b Ab y $&:$1 Ab:A
(?:(?i)a)b aB n - -
((?i)a)b aB n - -
(?i:a)b ab y $& ab
((?i:a))b ab y $&:$1 ab:a
(?i:a)b Ab y $& Ab
((?i:a))b Ab y $&:$1 Ab:A
(?i:a)b aB n - -
((?i:a))b aB n - -
'(?:(?-i)a)b'i ab y $& ab
'((?-i)a)b'i ab y $&:$1 ab:a
'(?:(?-i)a)b'i aB y $& aB
'((?-i)a)b'i aB y $&:$1 aB:a
'(?:(?-i)a)b'i Ab n - -
'((?-i)a)b'i Ab n - -
'(?:(?-i)a)b'i aB y $& aB
'((?-i)a)b'i aB y $1 a
'(?:(?-i)a)b'i AB n - -
'((?-i)a)b'i AB n - -
'(?-i:a)b'i ab y $& ab
'((?-i:a))b'i ab y $&:$1 ab:a
'(?-i:a)b'i aB y $& aB
'((?-i:a))b'i aB y $&:$1 aB:a
'(?-i:a)b'i Ab n - -
'((?-i:a))b'i Ab n - -
'(?-i:a)b'i aB y $& aB
'((?-i:a))b'i aB y $1 a
'(?-i:a)b'i AB n - -
'((?-i:a))b'i AB n - -
'((?-i:a.))b'i a\nB n - -
'((?-i:a\N))b'i a\nB n - -
'((?s-i:a.))b'i a\nB y $1 a\n
'((?s-i:a\N))b'i a\nB n - -
'((?s-i:a.))b'i B\nB n - -
'((?s-i:a\N))b'i B\nB n - -
(?:c|d)(?:)(?:a(?:)(?:b)(?:b(?:))(?:b(?:)(?:b))) cabbbb y $& cabbbb
(?:c|d)(?:)(?:aaaaaaaa(?:)(?:bbbbbbbb)(?:bbbbbbbb(?:))(?:bbbbbbbb(?:)(?:bbbbbbbb))) caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb y $& caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
'(ab)\d\1'i Ab4ab y $1 Ab
'(ab)\d\1'i ab4Ab y $1 ab
foo\w*\d{4}baz foobar1234baz y $& foobar1234baz
a(?{})b cabd y $& ab
a(?{f()+ - c - Missing right curly or square bracket
a(?{{1}+ - c - Missing right curly or square bracket
(?{(^{}) - c - syntax error
a(?{}})b - c -
a(?{"{"})b ab y - -
a(?{"\{"})b cabd y $& ab
a(?{"{"}})b - c - Sequence (?{...}) not terminated with ')'
a(?{$::bl="\{"}).b caxbd y $::bl {
x(~~)*(?:(?:F)?)? x~~ y - -
^a(?#xxx){3}c aaac y $& aaac
'^a (?#xxx) (?#yyy) {3}c'x aaac y $& aaac
(?<![cd])b dbcb n - -
(?<![cd])[ab] dbaacb y $& a
(?<!(c|d))b dbcb n - -
(?<!(c|d))[ab] dbaacb y $& a
(?<!cd)[ab] cdaccb y $& b
^(?:a?b?)*$ a-- n - -
((?s)^a(.))((?m)^b$) a\nb\nc\n y $1;$2;$3 a\n;\n;b
((?m)^b$) a\nb\nc\n y $1 b
(?m)^b a\nb\n y $& b
(?m)^(b) a\nb\n y $1 b
((?m)^b) a\nb\n y $1 b
\n((?m)^b) a\nb\n y $1 b
((?s).)c(?!.) a\nb\nc\n y $1 \n
((?s).)c(?!.) a\nb\nc\n y $1:$& \n:\nc
((?s)b.)c(?!.) a\nb\nc\n y $1 b\n
((?s)b.)c(?!.) a\nb\nc\n y $1:$& b\n:b\nc
((?s)b.)c(?!\N) a\nb\nc\n y $1:$& b\n:b\nc
'(b.)c(?!\N)'s a\nb\nc\n y $1:$& b\n:b\nc
^b a\nb\nc\n n - -
()^b a\nb\nc\n n - -
((?m)^b) a\nb\nc\n y $1 b
(?(1)a|b) a n - -
(?(1)b|a) a y $& a
(x)?(?(1)a|b) a n - -
(x)?(?(1)b|a) a y $& a
()?(?(1)b|a) a y $& a
()(?(1)b|a) a n - -
()?(?(1)a|b) a y $& a
^(\()?blah(?(1)(\)))$ (blah) y $2 )
^(\()?blah(?(1)(\)))$ blah y ($2) ()
^(\()?blah(?(1)(\)))$ blah) n - -
^(\()?blah(?(1)(\)))$ (blah n - -
^(\(+)?blah(?(1)(\)))$ (blah) y $2 )
^(\(+)?blah(?(1)(\)))$ blah y ($2) ()
^(\(+)?blah(?(1)(\)))$ blah) n - -
^(\(+)?blah(?(1)(\)))$ (blah n - -
(?(1?)a|b) - c - Switch condition not recognized
(?(1)a|b|c) - c - Switch (?(condition)... contains too many branches
(?(?{0})a|b) a n - -
(?(?{0})b|a) a y $& a
(?(?{1})b|a) a n - -
(?(?{1})a|b) a y $& a
(?(?!a)a|b) a n - -
(?(?!a)b|a) a y $& a
(?(?=a)b|a) a n - -
(?(?=a)a|b) a y $& a
(?(?!\x{100})\x{100}|b) \x{100} n - -
(?(?!\x{100})b|\x{100}) \x{100} y $& \x{100}
(?(?=\x{100})b|\x{100}) \x{100} n - -
(?(?=\x{100})\x{100}|b) \x{100} y $& \x{100}
(?=(a+?))(\1ab) aaab y $2 aab
^(?=(a+?))\1ab aaab n - -
(\w+:)+ one: y $1 one:
$(?<=^(a)) a y $1 a
(?=(a+?))(\1ab) aaab y $2 aab
^(?=(a+?))\1ab aaab n - -
([\w:]+::)?(\w+)$ abcd: n - -
([\w:]+::)?(\w+)$ abcd y $1-$2 -abcd
([\w:]+::)?(\w+)$ xy:z:::abcd y $1-$2 xy:z:::-abcd
^[^bcd]*(c+) aexycd y $1 c
(a*)b+ caab y $1 aa
([\w:]+::)?(\w+)$ abcd: n - -
([\w:]+::)?(\w+)$ abcd y $1-$2 -abcd
([\w:]+::)?(\w+)$ xy:z:::abcd y $1-$2 xy:z:::-abcd
^[^bcd]*(c+) aexycd y $1 c
(?{$a=2})a*aa(?{local$a=$a+1})k*c(?{$b=$a}) yaaxxaaaacd y $b 3
(?{$a=2})(a(?{local$a=$a+1}))*aak*c(?{$b=$a}) yaaxxaaaacd y $b 4
# [perl #117917]
^(a(?{ "x" =~ m{x}})b)(??{ $1 }) abab y $& abab
(>a+)ab aaab n - -
(?>a+)b aaab y - -
([[:]+) a:[b]: y $1 :[
([[=]+) a=[b]= y $1 =[
([[.]+) a.[b]. y $1 .[
[a[:xyz: - c - Unmatched [
[a[:xyz:] - c - POSIX class [:xyz:] unknown
[a[:]b[:c] abc y $& abc
([a[:xyz:]b]+) - c - POSIX class [:xyz:] unknown
([[:alpha:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd
([[:alnum:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy
([[:ascii:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__-- ${nulnul}
([[:cntrl:]]+) ABcd01Xy__-- ${nulnul}${ffff} ya $1 ${nulnul} ff is a control on EBCDIC (non-POSIX-BC), so this fails under /u rules
([[:digit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 01
([[:graph:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
([[:lower:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 cd
([[:print:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
([[:punct:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 __--
([[:space:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1
([[:word:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__
([[:upper:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 AB
([[:xdigit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01
([[:^alpha:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 01
((?a)[[:^alnum:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 __-- ${nulnul}${ffff}
([[:^ascii:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${ffff}
([:[:^ascii:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${ffff} RT #120799
([[:^cntrl:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
([[:^digit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd
([[:^lower:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 AB
((?a)[[:^print:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${nulnul}${ffff}
([[:^punct:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy
([[:^space:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
((?a)[[:^word:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 -- ${nulnul}${ffff}
([[:^upper:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 cd01
([[:^xdigit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 Xy__-- ${nulnul}${ffff}
[[:foo:]] - c - POSIX class [:foo:] unknown
[[:^foo:]] - c - POSIX class [:^foo:] unknown
'[[:^cntrl:]]+'u a\x80 y $& a \x80 was matching on EBCDIC platforms
((?>a+)b) aaab y $1 aaab
(?>(a+))b aaab y $1 aaa
((?>[^()]+)|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x
(?<=x+)y - c - Variable length lookbehind not implemented
((def){37,17})?ABC ABC y $& ABC
\Z a\nb\n y $-[0] 3
\z a\nb\n y $-[0] 4
$ a\nb\n y $-[0] 3
\Z b\na\n y $-[0] 3
\z b\na\n y $-[0] 4
$ b\na\n y $-[0] 3
\Z b\na y $-[0] 3
\z b\na y $-[0] 3
$ b\na y $-[0] 3
'\Z'm a\nb\n y $-[0] 3
'\z'm a\nb\n y $-[0] 4
'$'m a\nb\n y $-[0] 1
'\Z'm b\na\n y $-[0] 3
'\z'm b\na\n y $-[0] 4
'$'m b\na\n y $-[0] 1
'\Z'm b\na y $-[0] 3
'\z'm b\na y $-[0] 3
'$'m b\na y $-[0] 1
a\Z a\nb\n n - -
a\z a\nb\n n - -
a$ a\nb\n n - -
a\Z b\na\n y $-[0] 2
a\z b\na\n n - -
a$ b\na\n y $-[0] 2
a\Z b\na y $-[0] 2
a\z b\na y $-[0] 2
a$ b\na y $-[0] 2
'a\Z'm a\nb\n n - -
'a\z'm a\nb\n n - -
'a$'m a\nb\n y $-[0] 0
'a\Z'm b\na\n y $-[0] 2
'a\z'm b\na\n n - -
'a$'m b\na\n y $-[0] 2
'a\Z'm b\na y $-[0] 2
'a\z'm b\na y $-[0] 2
'a$'m b\na y $-[0] 2
aa\Z aa\nb\n n - -
aa\z aa\nb\n n - -
aa$ aa\nb\n n - -
aa\Z b\naa\n y $-[0] 2
aa\z b\naa\n n - -
aa$ b\naa\n y $-[0] 2
aa\Z b\naa y $-[0] 2
aa\z b\naa y $-[0] 2
aa$ b\naa y $-[0] 2
'aa\Z'm aa\nb\n n - -
'aa\z'm aa\nb\n n - -
'aa$'m aa\nb\n y $-[0] 0
'aa\Z'm b\naa\n y $-[0] 2
'aa\z'm b\naa\n n - -
'aa$'m b\naa\n y $-[0] 2
'aa\Z'm b\naa y $-[0] 2
'aa\z'm b\naa y $-[0] 2
'aa$'m b\naa y $-[0] 2
aa\Z ac\nb\n n - -
aa\z ac\nb\n n - -
aa$ ac\nb\n n - -
aa\Z b\nac\n n - -
aa\z b\nac\n n - -
aa$ b\nac\n n - -
aa\Z b\nac n - -
aa\z b\nac n - -
aa$ b\nac n - -
'aa\Z'm ac\nb\n n - -
'aa\z'm ac\nb\n n - -
'aa$'m ac\nb\n n - -
'aa\Z'm b\nac\n n - -
'aa\z'm b\nac\n n - -
'aa$'m b\nac\n n - -
'aa\Z'm b\nac n - -
'aa\z'm b\nac n - -
'aa$'m b\nac n - -
aa\Z ca\nb\n n - -
aa\z ca\nb\n n - -
aa$ ca\nb\n n - -
aa\Z b\nca\n n - -
aa\z b\nca\n n - -
aa$ b\nca\n n - -
aa\Z b\nca n - -
aa\z b\nca n - -
aa$ b\nca n - -
'aa\Z'm ca\nb\n n - -
'aa\z'm ca\nb\n n - -
'aa$'m ca\nb\n n - -
'aa\Z'm b\nca\n n - -
'aa\z'm b\nca\n n - -
'aa$'m b\nca\n n - -
'aa\Z'm b\nca n - -
'aa\z'm b\nca n - -
'aa$'m b\nca n - -
ab\Z ab\nb\n n - -
ab\z ab\nb\n n - -
ab$ ab\nb\n n - -
ab\Z b\nab\n y $-[0] 2
ab\z b\nab\n n - -
ab$ b\nab\n y $-[0] 2
ab\Z b\nab y $-[0] 2
ab\z b\nab y $-[0] 2
ab$ b\nab y $-[0] 2
'ab\Z'm ab\nb\n n - -
'ab\z'm ab\nb\n n - -
'ab$'m ab\nb\n y $-[0] 0
'ab\Z'm b\nab\n y $-[0] 2
'ab\z'm b\nab\n n - -
'ab$'m b\nab\n y $-[0] 2
'ab\Z'm b\nab y $-[0] 2
'ab\z'm b\nab y $-[0] 2
'ab$'m b\nab y $-[0] 2
ab\Z ac\nb\n n - -
ab\z ac\nb\n n - -
ab$ ac\nb\n n - -
ab\Z b\nac\n n - -
ab\z b\nac\n n - -
ab$ b\nac\n n - -
ab\Z b\nac n - -
ab\z b\nac n - -
ab$ b\nac n - -
'ab\Z'm ac\nb\n n - -
'ab\z'm ac\nb\n n - -
'ab$'m ac\nb\n n - -
'ab\Z'm b\nac\n n - -
'ab\z'm b\nac\n n - -
'ab$'m b\nac\n n - -
'ab\Z'm b\nac n - -
'ab\z'm b\nac n - -
'ab$'m b\nac n - -
ab\Z ca\nb\n n - -
ab\z ca\nb\n n - -
ab$ ca\nb\n n - -
ab\Z b\nca\n n - -
ab\z b\nca\n n - -
ab$ b\nca\n n - -
ab\Z b\nca n - -
ab\z b\nca n - -
ab$ b\nca n - -
'ab\Z'm ca\nb\n n - -
'ab\z'm ca\nb\n n - -
'ab$'m ca\nb\n n - -
'ab\Z'm b\nca\n n - -
'ab\z'm b\nca\n n - -
'ab$'m b\nca\n n - -
'ab\Z'm b\nca n - -
'ab\z'm b\nca n - -
'ab$'m b\nca n - -
abb\Z abb\nb\n n - -
abb\z abb\nb\n n - -
abb$ abb\nb\n n - -
abb\Z b\nabb\n y $-[0] 2
abb\z b\nabb\n n - -
abb$ b\nabb\n y $-[0] 2
abb\Z b\nabb y $-[0] 2
abb\z b\nabb y $-[0] 2
abb$ b\nabb y $-[0] 2
'abb\Z'm abb\nb\n n - -
'abb\z'm abb\nb\n n - -
'abb$'m abb\nb\n y $-[0] 0
'abb\Z'm b\nabb\n y $-[0] 2
'abb\z'm b\nabb\n n - -
'abb$'m b\nabb\n y $-[0] 2
'abb\Z'm b\nabb y $-[0] 2
'abb\z'm b\nabb y $-[0] 2
'abb$'m b\nabb y $-[0] 2
abb\Z ac\nb\n n - -
abb\z ac\nb\n n - -
abb$ ac\nb\n n - -
abb\Z b\nac\n n - -
abb\z b\nac\n n - -
abb$ b\nac\n n - -
abb\Z b\nac n - -
abb\z b\nac n - -
abb$ b\nac n - -
'abb\Z'm ac\nb\n n - -
'abb\z'm ac\nb\n n - -
'abb$'m ac\nb\n n - -
'abb\Z'm b\nac\n n - -
'abb\z'm b\nac\n n - -
'abb$'m b\nac\n n - -
'abb\Z'm b\nac n - -
'abb\z'm b\nac n - -
'abb$'m b\nac n - -
abb\Z ca\nb\n n - -
abb\z ca\nb\n n - -
abb$ ca\nb\n n - -
abb\Z b\nca\n n - -
abb\z b\nca\n n - -
abb$ b\nca\n n - -
abb\Z b\nca n - -
abb\z b\nca n - -
abb$ b\nca n - -
'abb\Z'm ca\nb\n n - -
'abb\z'm ca\nb\n n - -
'abb$'m ca\nb\n n - -
'abb\Z'm b\nca\n n - -
'abb\z'm b\nca\n n - -
'abb$'m b\nca\n n - -
'abb\Z'm b\nca n - -
'abb\z'm b\nca n - -
'abb$'m b\nca n - -
'\Aa$'m a\n\n y $& a
(^|x)(c) ca y $2 c
a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz x n - -
a(?{$a=2;$b=3;($b)=$a})b yabz y $b 2
round\(((?>[^()]+))\) _I(round(xs * sz),1) y $1 xs * sz
'((?x:.) )' x y $1- x -
'((?-x:.) )'x x y $1- x-
foo.bart foo.bart y - -
'^d[x][x][x]'m abcd\ndxxx y - -
.X(.+)+X bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
.X(.+)+XX bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
.XX(.+)+X bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
.X(.+)+X bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
.X(.+)+XX bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
.XX(.+)+X bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
.X(.+)+[X] bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
.X(.+)+[X][X] bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
.XX(.+)+[X] bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
.X(.+)+[X] bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
.X(.+)+[X][X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
.XX(.+)+[X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
.[X](.+)+[X] bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
.[X](.+)+[X][X] bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
.[X][X](.+)+[X] bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
.[X](.+)+[X] bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
.[X](.+)+[X][X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
.[X][X](.+)+[X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
tt+$ xxxtt y - -
([a-\d]+) za-9z Sy $1 a-9
([a-\d]+) - sc - False [] range
([\d-z]+) a0-za Sy $1 0-z
([\d-z]+) - sc $1 False [] range
([\d-\s]+) a0- z Sy $1 0-
([\d-\s]+) - sc $1 False [] range
([a-[:digit:]]+) za-9z Sy $1 a-9
([a-[:digit:]]+) - sc - False [] range
([[:digit:]-z]+) =0-z= Sy $1 0-z
([[:digit:]-z]+) - sc c False [] range
([[:digit:]-[:alpha:]]+) =0-z= Sy $1 0-z
([[:digit:]-[:alpha:]]+) - sc - False [] range
\GX.*X aaaXbX n - -
(\d+\.\d+) 3.1415926 y $1 3.1415926
(\ba.{0,10}br) have a web browser y $1 a web br
'\.c(pp|xx|c)?$'i Changes n - -
'\.c(pp|xx|c)?$'i IO.c y - -
'(\.c(pp|xx|c)?$)'i IO.c y $1 .c
^([a-z]:) C:/ n - -
'^\S\s+aa$'m \nx aa y - -
(^|a)b ab y - -
^([ab]*?)(b)?(c)$ abac y -$2- --
(\w)?(abc)\1b abcab n - -
^(?:.,){2}c a,b,c y - -
^(.,){2}c a,b,c y $1 b,
^(?:[^,]*,){2}c a,b,c y - -
^([^,]*,){2}c a,b,c y $1 b,
^([^,]*,){3}d aaa,b,c,d y $1 c,
^([^,]*,){3,}d aaa,b,c,d y $1 c,
^([^,]*,){0,3}d aaa,b,c,d y $1 c,
^([^,]{1,3},){3}d aaa,b,c,d y $1 c,
^([^,]{1,3},){3,}d aaa,b,c,d y $1 c,
^([^,]{1,3},){0,3}d aaa,b,c,d y $1 c,
^([^,]{1,},){3}d aaa,b,c,d y $1 c,
^([^,]{1,},){3,}d aaa,b,c,d y $1 c,
^([^,]{1,},){0,3}d aaa,b,c,d y $1 c,
^([^,]{0,3},){3}d aaa,b,c,d y $1 c,
^([^,]{0,3},){3,}d aaa,b,c,d y $1 c,
^([^,]{0,3},){0,3}d aaa,b,c,d y $1 c,
(?i) y - -
(?a:((?u)\w)\W) \xC0\xC0 y $& \xC0\xC0
'(?!\A)x'm a\nxb\n y - -
^(a(b)?)+$ aba y -$1-$2- -a--
^(aa(bb)?)+$ aabbaa y -$1-$2- -aa--
'^.{9}abc.*\n'm 123\nabcabcabcabc\n y - -
^(a)?a$ a y -$1- --
^(a)?(?(1)a|b)+$ a n - -
^(a\1?)(a\1?)(a\2?)(a\3?)$ aaaaaa y $1,$2,$3,$4 a,aa,a,aa
^(a\1?){4}$ aaaaaa y $1 aa
^(0+)?(?:x(1))? x1 y - -
^([0-9a-fA-F]+)(?:x([0-9a-fA-F]+)?)(?:x([0-9a-fA-F]+))? 012cxx0190 y - -
^(b+?|a){1,2}c bbbac y $1 a
^(b+?|a){1,2}c bbbbac y $1 a
\((\w\. \w+)\) cd. (A. Tw) y -$1- -A. Tw-
((?:aaaa|bbbb)cccc)? aaaacccc y - -
((?:aaaa|bbbb)cccc)? bbbbcccc y - -
(a)?(a)+ a y $1:$2 :a -
(ab)?(ab)+ ab y $1:$2 :ab -
(abc)?(abc)+ abc y $1:$2 :abc -
'b\s^'m a\nb\n n - -
\ba a y - -
^(a(??{"(?!)"})|(a)(?{1}))b ab y $2 a # [ID 20010811.006 (#7512)]
ab(?i)cd AbCd n - - # [ID 20010809.023 (#7503)]
ab(?i)cd abCd y - -
(A|B)*(?(1)(CD)|(CD)) CD y $2-$3 -CD
(A|B)*(?(1)(CD)|(CD)) ABCD y $2-$3 CD-
(A|B)*?(?(1)(CD)|(CD)) CD y $2-$3 -CD # [ID 20010803.016 (#7438)]
(A|B)*?(?(1)(CD)|(CD)) ABCD y $2-$3 CD-
'^(o)(?!.*\1)'i Oo n - -
(.*)\d+\1 abc12bc y $1 bc
(?m:(foo\s*$)) foo\n bar y $1 foo
(.*)c abcd y $1 ab
(.*)(?=c) abcd y $1 ab
(.*)(?=c)c abcd yB $1 ab
(.*)(?=b|c) abcd y $1 ab
(.*)(?=b|c)c abcd y $1 ab
(.*)(?=c|b) abcd y $1 ab
(.*)(?=c|b)c abcd y $1 ab
(.*)(?=[bc]) abcd y $1 ab
(.*)(?=[bc])c abcd yB $1 ab
(.*)(?<=b) abcd y $1 ab
(.*)(?<=b)c abcd y $1 ab
(.*)(?<=b|c) abcd y $1 abc
(.*)(?<=b|c)c abcd y $1 ab
(.*)(?<=c|b) abcd y $1 abc
(.*)(?<=c|b)c abcd y $1 ab
(.*)(?<=[bc]) abcd y $1 abc
(.*)(?<=[bc])c abcd y $1 ab
(.*?)c abcd y $1 ab
(.*?)(?=c) abcd y $1 ab
(.*?)(?=c)c abcd yB $1 ab
(.*?)(?=b|c) abcd y $1 a
(.*?)(?=b|c)c abcd y $1 ab
(.*?)(?=c|b) abcd y $1 a
(.*?)(?=c|b)c abcd y $1 ab
(.*?)(?=[bc]) abcd y $1 a
(.*?)(?=[bc])c abcd yB $1 ab
(.*?)(?<=b) abcd y $1 ab
(.*?)(?<=b)c abcd y $1 ab
(.*?)(?<=b|c) abcd y $1 ab
(.*?)(?<=b|c)c abcd y $1 ab
(.*?)(?<=c|b) abcd y $1 ab
(.*?)(?<=c|b)c abcd y $1 ab
(.*?)(?<=[bc]) abcd y $1 ab
(.*?)(?<=[bc])c abcd y $1 ab
2(]*)?$\1 2 y $& 2
(??{}) x y - -
a(b)?? abc y <$1> <> # undef [perl #16773]
(\d{1,3}\.){3,} 128.134.142.8 y <$1> <142.> # [perl #18019]
^.{3,4}(.+)\1\z foobarbar y $1 bar # 16 tests for [perl #23171]
^(?:f|o|b){3,4}(.+)\1\z foobarbar y $1 bar
^.{3,4}((?:b|a|r)+)\1\z foobarbar y $1 bar
^(?:f|o|b){3,4}((?:b|a|r)+)\1\z foobarbar y $1 bar
^.{3,4}(.+?)\1\z foobarbar y $1 bar
^(?:f|o|b){3,4}(.+?)\1\z foobarbar y $1 bar
^.{3,4}((?:b|a|r)+?)\1\z foobarbar y $1 bar
^(?:f|o|b){3,4}((?:b|a|r)+?)\1\z foobarbar y $1 bar
^.{2,3}?(.+)\1\z foobarbar y $1 bar
^(?:f|o|b){2,3}?(.+)\1\z foobarbar y $1 bar
^.{2,3}?((?:b|a|r)+)\1\z foobarbar y $1 bar
^(?:f|o|b){2,3}?((?:b|a|r)+)\1\z foobarbar y $1 bar
^.{2,3}?(.+?)\1\z foobarbar y $1 bar
^(?:f|o|b){2,3}?(.+?)\1\z foobarbar y $1 bar
^.{2,3}?((?:b|a|r)+?)\1\z foobarbar y $1 bar
^(?:f|o|b){2,3}?((?:b|a|r)+?)\1\z foobarbar y $1 bar
.*a(?!(b|cd)*e).*f ......abef n - - # [perl #23030]
x(?# - c - Sequence (?#... not terminated
:x(?#: - c - Sequence (?#... not terminated
(WORDS|WORD)S WORDS y $1 WORD
(X.|WORDS|X.|WORD)S WORDS y $1 WORD
(WORDS|WORLD|WORD)S WORDS y $1 WORD
(X.|WORDS|WORD|Y.)S WORDS y $1 WORD
(foo|fool|x.|money|parted)$ fool y $1 fool
(x.|foo|fool|x.|money|parted|y.)$ fool y $1 fool
(foo|fool|money|parted)$ fool y $1 fool
(foo|fool|x.|money|parted)$ fools n - -
(x.|foo|fool|x.|money|parted|y.)$ fools n - -
(foo|fool|money|parted)$ fools n - -
(a|aa|aaa||aaaa|aaaaa|aaaaaa)(b|c) aaaaaaaaaaaaaaab y $1$2 aaaaaab
(a|aa|aaa||aaaa|aaaaa|aaaaaa)(??{$1&&""})(b|c) aaaaaaaaaaaaaaab y $1$2 aaaaaab
(a|aa|aaa|aaaa|aaaaa|aaaaaa)(??{$1&&"foo"})(b|c) aaaaaaaaaaaaaaab n - -
^(a*?)(?!(aa|aaaa)*$) aaaaaaaaaaaaaaaaaaaa y $1 a # [perl #34195]
^(a*?)(?!(aa|aaaa)*$)(?=a\z) aaaaaaaa y $1 aaaaaaa
^(.)\s+.$(?(1)) A B y $1 A # [perl #37688]
(?:r?)*?r|(.{2,4}) abcde y $1 abcd
(?!)+?|(.{2,4}) abcde y $1 abcd
^(a*?)(?!(a{6}|a{5})*$) aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y $+[1] 12 # super-linear cache bug may return 18
^((?>(?:aa)?b)?) aab y $1 aab
^((?:aa)*)(?:X+((?:\d+|-)(?:X+(.+))?))?$ aaaaX5 y $1 aaaa
X(A|B||C|D)Y XXXYYY y $& XY # Trie w/ NOTHING
(?i:X([A]|[B]|y[Y]y|[D]|)Y) XXXYYYB y $& XY # Trie w/ NOTHING
^([a]{1})*$ aa y $1 a
a(?!b(?!c))(..) abababc y $1 bc # test nested negatives
a(?!b(?=a))(..) abababc y $1 bc # test nested lookaheads
a(?!b(?!c(?!d(?!e))))...(.) abxabcdxabcde y $1 e
X(?!b+(?!(c+)*(?!(c+)*d))).*X aXbbbbbbbcccccccccccccaaaX y - -
^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQX: y $1 ZEQQQX
^(XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
^(XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQX: y $1 ZEQQQX
X(?:ABCF[cC]x*|ABCD|ABCF):(?:DIT|DID|DIM) XABCFCxxxxxxxxxx:DIM y $& XABCFCxxxxxxxxxx:DIM
(((ABCD|ABCE|ABCF)))(A|B|C[xy]*): ABCFCxxxxxxxxxx:DIM y $& ABCFCxxxxxxxxxx:
(?=foo) foo y pos 0
(?=foo) XfooY y pos 1
.*(?=foo) XfooY y pos 1
(?=.*P)P aP y pos 2
(?<=foo) foo y pos 3
(?<=foo) XfooY y pos 4
.*(?<=foo) foo y pos 3
.*(?<=foo) XfooY y pos 4
(?<=foo)Y XfooY y pos 5
o(?<=foo)Y ..XfooY.. y pos 7
X(?=foo)f ..XfooY.. y pos 4
X(?=foo) ..XfooY.. y pos 3
X(?<=foo.)[YZ] ..XfooXY.. y pos 8
(?=XY*foo) Xfoo y pos 0
^(?=XY*foo) Xfoo y pos 0
^(??{"a+"})a aa y $& aa
^(?:(??{"a+"})|b)a aa y $& aa
^(??{chr 0x100}).$ \x{100}\x{100} y $& \x{100}\x{100}
^(??{q(\x{100})}). \x{100}\x{100} y $& \x{100}\x{100}
^(??{q(.+)})\x{100} \x{100}\x{100} y $& \x{100}\x{100}
^(??{q(.)})\x{100} \x{100}\x{100} y $& \x{100}\x{100}
^(??{chr 0x100})\xbb \x{100}\x{bb} y $& \x{100}\x{bb}
^(.)(??{"(.)(.)"})(.)$ abcd y $1-$2 a-d
^(.)(??{"(bz+|.)(.)"})(.)$ abcd y $1-$2 a-d
^(.)((??{"(.)(cz+)"})|.) abcd y $1-$2 a-b
^a(?>(??{q(b)}))(??{q(c)})d abcd y - -
^x(??{""})+$ x y $& x
^(<(?:[^<>]+|(?3)|(?1))*>)()(!>!>!>)$ <<!>!>!>><>>!>!>!> y $1 <<!>!>!>><>>
^(<(?:[^<>]+|(?1))*>)$ <<><<<><>>>> y $1 <<><<<><>>>>
((?2)*)([fF]o+) fooFoFoo y $1-$2 fooFo-Foo
(<(?:[^<>]+|(?R))*>) <<><<<><>>>> y $1 <<><<<><>>>>
(?<n>foo|bar|baz) snofooewa y $1 foo
(?<n>foo|bar|baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
(?<n>foo|bar|baz)(?<m>[ew]+) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
(?<n>foo|bar|baz)(?<m>[ew]+) snofooewa yM $+{m} ew miniperl cannot load Tie::Hash::NamedCapture
(?<n>foo)|(?<n>bar)|(?<n>baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
(?<n>foo)(??{ $+{n} }) snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
(?P<n>foo|bar|baz) snofooewa y $1 foo
(?P<n>foo|bar|baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
(?P<n>foo|bar|baz)(?P<m>[ew]+) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
(?P<n>foo|bar|baz)(?P<m>[ew]+) snofooewa yM $+{m} ew miniperl cannot load Tie::Hash::NamedCapture
(?P<n>foo)|(?P<n>bar)|(?P<n>baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
(?P<n>foo)(??{ $+{n} }) snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
(?P<=n>foo|bar|baz) - c - Group name must start with a non-digit word character
(?P<!n>foo|bar|baz) - c - Group name must start with a non-digit word character
(?PX<n>foo|bar|baz) - c - Sequence (?PX...) not recognized
/(?'n'foo|bar|baz)/ snofooewa y $1 foo
/(?'n'foo|bar|baz)/ snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?'n'foo|bar|baz)(?'m'[ew]+)/ snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?'n'foo|bar|baz)(?'m'[ew]+)/ snofooewa yM $+{m} ew miniperl cannot load Tie::Hash::NamedCapture
/(?'n'foo)|(?'n'bar)|(?<n>baz)/ snobazewa yM $+{n} baz miniperl cannot load Tie::Hash::NamedCapture
/(?'n'foo)(??{ $+{n} })/ snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?'n'foo)\k<n>/ ..foofoo.. y $1 foo
/(?'n'foo)\k<n>/ ..foofoo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?<n>foo)\k'n'/ ..foofoo.. y $1 foo
/(?<n>foo)\k'n'/ ..foofoo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?:(?<n>foo)|(?<n>bar))\k<n>/ ..barbar.. yM $+{n} bar miniperl cannot load Tie::Hash::NamedCapture
/^(?'main'<(?:[^<>]+|(?&crap)|(?&main))*>)(?'empty')(?'crap'!>!>!>)$/ <<!>!>!>><>>!>!>!> yM $+{main} <<!>!>!>><>> miniperl cannot load Tie::Hash::NamedCapture
/^(?'main'<(?:[^<>]+|(?&main))*>)$/ <<><<<><>>>> y $1 <<><<<><>>>>
/(?'first'(?&second)*)(?'second'[fF]o+)/ fooFoFoo yM $+{first}-$+{second} fooFo-Foo miniperl cannot load Tie::Hash::NamedCapture
(?<A>foo)?(?(<A>)bar|nada) foobar yM $+{A} foo miniperl cannot load Tie::Hash::NamedCapture
(?<A>foo)?(?(<A>)bar|nada) foo-barnada y $& nada
(?<A>foo)?(?(1)bar|nada) foo-barnada y $& nada
(?<A>foo(?(R)bar))?(?1) foofoobar y $1 foo
(?<A>foo(?(R)bar))?(?1) foofoobar y $& foofoobar
(x)(?<A>foo(?(R&A)bar))?(?&A) xfoofoobar y $2 foo
(x)(?<A>foo(?(R&A)bar))?(?&A) xfoofoobar y $& xfoofoobar
(x)(?<A>foo(?(R2)bar))?(?&A) xfoofoobar y $2 foo
(x)(?<A>foo(?(R2)bar))?(?&A) xfoofoobar y $& xfoofoobar
(?1)(?(DEFINE)(blah)) blah y $& blah
/^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/ madamimadam y $& madamimadam
/^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/ madamiamadam n - -
/(a)?((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
/(a)*((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
/(a)+((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
/(a){1,100}((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
/(a){0,100}((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
/(ab)?((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
/(ab)*((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
/(ab)+((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
/(ab){1,100}((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
/(ab){0,100}((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
foo(?0)?bar phoofoofoobarbarbarr y $& foofoobarbar
foo(?R)?bar phoofoofoobarbarbarr y $& foofoobarbar
# possessive captures
a++a aaaaa n - -
a*+a aaaaa n - -
a{1,5}+a aaaaa n - -
a?+a ab n - -
a++b aaaaab y $& aaaaab
a*+b aaaaab y $& aaaaab
a{1,5}+b aaaaab y $& aaaaab
a?+b ab y $& ab
fooa++a fooaaaaa n - -
fooa*+a fooaaaaa n - -
fooa{1,5}+a fooaaaaa n - -
fooa?+a fooab n - -
fooa++b fooaaaaab y $& fooaaaaab
fooa*+b fooaaaaab y $& fooaaaaab
fooa{1,5}+b fooaaaaab y $& fooaaaaab
fooa?+b fooab y $& fooab
(?:aA)++(?:aA) aAaAaAaAaA n - aAaAaAaAaA
(aA)++(aA) aAaAaAaAaA n - aAaAaAaAaA
(aA|bB)++(aA|bB) aAaAbBaAbB n - aAaAbBaAbB
(?:aA|bB)++(?:aA|bB) aAbBbBbBaA n - aAbBbBbBaA
(?:aA)*+(?:aA) aAaAaAaAaA n - aAaAaAaAaA
(aA)*+(aA) aAaAaAaAaA n - aAaAaAaAaA
(aA|bB)*+(aA|bB) aAaAbBaAaA n - aAaAbBaAaA
(?:aA|bB)*+(?:aA|bB) aAaAaAbBaA n - aAaAaAbBaA
(?:aA){1,5}+(?:aA) aAaAaAaAaA n - aAaAaAaAaA
(aA){1,5}+(aA) aAaAaAaAaA n - aAaAaAaAaA
(aA|bB){1,5}+(aA|bB) aAaAbBaAaA n - aAaAbBaAaA
(?:aA|bB){1,5}+(?:aA|bB) bBbBbBbBbB n - bBbBbBbBbB
(?:aA)?+(?:aA) aAb n - aAb
(aA)?+(aA) aAb n - aAb
(aA|bB)?+(aA|bB) bBb n - bBb
(?:aA|bB)?+(?:aA|bB) aAb n - aAb
(?:aA)++b aAaAaAaAaAb y $& aAaAaAaAaAb
(aA)++b aAaAaAaAaAb y $& aAaAaAaAaAb
(aA|bB)++b aAbBaAaAbBb y $& aAbBaAaAbBb
(?:aA|bB)++b aAbBbBaAaAb y $& aAbBbBaAaAb
(?:aA)*+b aAaAaAaAaAb y $& aAaAaAaAaAb
(aA)*+b aAaAaAaAaAb y $& aAaAaAaAaAb
(aA|bB)*+b bBbBbBbBbBb y $& bBbBbBbBbBb
(?:aA|bB)*+b bBaAbBbBaAb y $& bBaAbBbBaAb
(?:aA){1,5}+b aAaAaAaAaAb y $& aAaAaAaAaAb
(aA){1,5}+b aAaAaAaAaAb y $& aAaAaAaAaAb
(aA|bB){1,5}+b bBaAbBaAbBb y $& bBaAbBaAbBb
(?:aA|bB){1,5}+b aAbBaAbBbBb y $& aAbBaAbBbBb
(?:aA)?+b aAb y $& aAb
(aA)?+b aAb y $& aAb
(aA|bB)?+b bBb y $& bBb
(?:aA|bB)?+b bBb y $& bBb
foo(?:aA)++(?:aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
foo(aA)++(aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
foo(aA|bB)++(aA|bB) foobBbBbBaAaA n - foobBbBbBaAaA
foo(?:aA|bB)++(?:aA|bB) fooaAaAaAaAaA n - fooaAaAaAaAaA
foo(?:aA)*+(?:aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
foo(aA)*+(aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
foo(aA|bB)*+(aA|bB) foobBaAbBaAaA n - foobBaAbBaAaA
foo(?:aA|bB)*+(?:aA|bB) fooaAaAbBbBaA n - fooaAaAbBbBaA
foo(?:aA){1,5}+(?:aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
foo(aA){1,5}+(aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
foo(aA|bB){1,5}+(aA|bB) fooaAbBbBaAaA n - fooaAbBbBaAaA
foo(?:aA|bB){1,5}+(?:aA|bB) fooaAbBbBaAbB n - fooaAbBbBaAbB
foo(?:aA)?+(?:aA) fooaAb n - fooaAb
foo(aA)?+(aA) fooaAb n - fooaAb
foo(aA|bB)?+(aA|bB) foobBb n - foobBb
foo(?:aA|bB)?+(?:aA|bB) fooaAb n - fooaAb
foo(?:aA)++b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
foo(aA)++b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
foo(aA|bB)++b foobBaAbBaAbBb y $& foobBaAbBaAbBb
foo(?:aA|bB)++b fooaAaAbBaAaAb y $& fooaAaAbBaAaAb
foo(?:aA)*+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
foo(aA)*+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
foo(aA|bB)*+b foobBbBaAaAaAb y $& foobBbBaAaAaAb
foo(?:aA|bB)*+b foobBaAaAbBaAb y $& foobBaAaAbBaAb
foo(?:aA){1,5}+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
foo(aA){1,5}+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
foo(aA|bB){1,5}+b foobBaAaAaAaAb y $& foobBaAaAaAaAb
foo(?:aA|bB){1,5}+b fooaAbBaAbBbBb y $& fooaAbBaAbBbBb
foo(?:aA)?+b fooaAb y $& fooaAb
foo(aA)?+b fooaAb y $& fooaAb
foo(aA|bB)?+b foobBb y $& foobBb
foo(?:aA|bB)?+b foobBb y $& foobBb
([^()]++|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x
round\(([^()]++)\) _I(round(xs * sz),1) y $1 xs * sz
(foo[1x]|bar[2x]|baz[3x])+y foo1bar2baz3y y $1 baz3
(foo[1x]|bar[2x]|baz[3x])+y foo1bar2baz3y y $& foo1bar2baz3y
(foo[1x]|bar[2x]|baz[3x])*y foo1bar2baz3y y $1 baz3
(foo[1x]|bar[2x]|baz[3x])*y foo1bar2baz3y y $& foo1bar2baz3y
([yX].|WORDS|[yX].|WORD)S WORDS y $1 WORD
(WORDS|WORLD|WORD)S WORDS y $1 WORD
([yX].|WORDS|WORD|[xY].)S WORDS y $1 WORD
(foo|fool|[zx].|money|parted)$ fool y $1 fool
([zx].|foo|fool|[zq].|money|parted|[yx].)$ fool y $1 fool
(foo|fool|[zx].|money|parted)$ fools n - -
([zx].|foo|fool|[qx].|money|parted|[py].)$ fools n - -
([yX].|WORDS|[yX].|WORD)+S WORDS y $1 WORD
(WORDS|WORLD|WORD)+S WORDS y $1 WORD
([yX].|WORDS|WORD|[xY].)+S WORDS y $1 WORD
(foo|fool|[zx].|money|parted)+$ fool y $1 fool
([zx].|foo|fool|[zq].|money|parted|[yx].)+$ fool y $1 fool
(foo|fool|[zx].|money|parted)+$ fools n - -
([zx].|foo|fool|[qx].|money|parted|[py].)+$ fools n - -
(x|y|z[QW])+(longish|loquatious|excessive|overblown[QW])+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
(x|y|z[QW])*(longish|loquatious|excessive|overblown[QW])* xyzQzWlongishoverblownW y $1-$2 zW-overblownW
(x|y|z[QW]){1,5}(longish|loquatious|excessive|overblown[QW]){1,5} xyzQzWlongishoverblownW y $1-$2 zW-overblownW
(x|y|z[QW])++(longish|loquatious|excessive|overblown[QW])++ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
(x|y|z[QW])*+(longish|loquatious|excessive|overblown[QW])*+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
(x|y|z[QW]){1,5}+(longish|loquatious|excessive|overblown[QW]){1,5}+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
a*(?!) aaaab n - -
a*(*FAIL) aaaab n - -
a*(*F) aaaab n - -
(A(A|B(*ACCEPT)|C)D)(E) AB y $1 AB
(A(A|B(*ACCEPT)|C)D)(E) ACDE y $1$2$3 ACDCE
(a)(?:(?-1)|(?+1))(b) aab y $&-$1-$2 aab-a-b
(a)(?:(?-1)|(?+1))(b) abb y $1-$2 a-b
(a)(?:(?-1)|(?+1))(b) acb n - -
(foo)(\g-2) foofoo y $1-$2 foo-foo
(foo)(\g-2)(foo)(\g-2) foofoofoofoo y $1-$2-$3-$4 foo-foo-foo-foo
(([abc]+) \g-1)(([abc]+) \g{-1}) abc abccba cba y $2-$4 abc-cba
(a)(b)(c)\g1\g2\g3 abcabc y $1$2$3 abc
# \k<n> preceded by a literal
/(?'n'foo) \k<n>/ ..foo foo.. y $1 foo
/(?'n'foo) \k<n>/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?<n>foo) \k'n'/ ..foo foo.. y $1 foo
/(?<n>foo) \k'n'/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?'a1'foo) \k'a1'/ ..foo foo.. yM $+{a1} foo miniperl cannot load Tie::Hash::NamedCapture
/(?<a1>foo) \k<a1>/ ..foo foo.. yM $+{a1} foo miniperl cannot load Tie::Hash::NamedCapture
/(?'_'foo) \k'_'/ ..foo foo.. yM $+{_} foo miniperl cannot load Tie::Hash::NamedCapture
/(?<_>foo) \k<_>/ ..foo foo.. yM $+{_} foo miniperl cannot load Tie::Hash::NamedCapture
/(?'_0_'foo) \k'_0_'/ ..foo foo.. yM $+{_0_} foo miniperl cannot load Tie::Hash::NamedCapture
/(?<_0_>foo) \k<_0_>/ ..foo foo.. yM $+{_0_} foo miniperl cannot load Tie::Hash::NamedCapture
/(?'0'foo) bar/ - c - Group name must start with a non-digit word character
/(?<0>foo) bar/ - c - Group name must start with a non-digit word character
/(?'12'foo) bar/ - c - Group name must start with a non-digit word character
/(?<12>foo) bar/ - c - Group name must start with a non-digit word character
/(?'1a'foo) bar/ - c - Group name must start with a non-digit word character
/(?<1a>foo) bar/ - c - Group name must start with a non-digit word character
/(?''foo) bar/ - c - Group name must start with a non-digit word character
/(?<>foo) bar/ - c - Group name must start with a non-digit word character
/foo \k'n'/ - c - Reference to nonexistent named group
/foo \k<n>/ - c - Reference to nonexistent named group
/foo \k'a1'/ - c - Reference to nonexistent named group
/foo \k<a1>/ - c - Reference to nonexistent named group
/foo \k'_'/ - c - Reference to nonexistent named group
/foo \k<_>/ - c - Reference to nonexistent named group
/foo \k'_0_'/ - c - Reference to nonexistent named group
/foo \k<_0_>/ - c - Reference to nonexistent named group
/foo \k'0'/ - c - Group name must start with a non-digit word character
/foo \k<0>/ - c - Group name must start with a non-digit word character
/foo \k'12'/ - c - Group name must start with a non-digit word character
/foo \k<12>/ - c - Group name must start with a non-digit word character
/foo \k'1a'/ - c - Group name must start with a non-digit word character
/foo \k<1a>/ - c - Group name must start with a non-digit word character
/foo \k''/ - c - Group name must start with a non-digit word character
/foo \k<>/ - c - Group name must start with a non-digit word character
/(?<as>as) (\w+) \k<as> (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie
# \g{...} with a name as the argument
/(?'n'foo) \g{n}/ ..foo foo.. y $1 foo
/(?'n'foo) \g{n}/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?<n>foo) \g{n}/ ..foo foo.. y $1 foo
/(?<n>foo) \g{n}/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?<as>as) (\w+) \g{as} (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie
# Python style named capture buffer stuff
/(?P<n>foo)(?P=n)/ ..foofoo.. y $1 foo
/(?P<n>foo)(?P=n)/ ..foofoo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?:(?P<n>foo)|(?P<n>bar))(?P=n)/ ..barbar.. yM $+{n} bar miniperl cannot load Tie::Hash::NamedCapture
/^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/ madamimadam y $& madamimadam
/^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/ madamiamadam n - -
/(?P<n>foo) (?P=n)/ ..foo foo.. y $1 foo
/(?P<n>foo) (?P=n)/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?P<as>as) (\w+) (?P=as) (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie
#check that non identifiers as names are treated as the appropriate lookaround
(?<=bar>)foo bar>foo y $& foo
(?<!bar>)foo bar>foo n - -
(?<=bar>ABC)foo bar>ABCfoo y $& foo
(?<!bar>ABC)foo bar>ABCfoo n - -
(?<bar>)foo bar>ABCfoo y $& foo
(?<bar>ABC)foo bar>ABCfoo y $& ABCfoo
(?<=abcd(?<=(aaaabcd))) ..aaaabcd.. y $1 aaaabcd
(?=xy(?<=(aaxy))) ..aaxy.. y $1 aaxy
X(\w+)(?=\s)|X(\w+) Xab y [$1-$2] [-ab]
#check that branch reset works ok.
(?|(a)) a y $1-$+-$^N a-a-a
(?|a(.)b|d(.(o).)d|i(.)(.)j)(.) d!o!da y $1-$2-$3 !o!-o-a
(?|a(.)b|d(.(o).)d|i(.)(.)j)(.) aabc y $1-$2-$3 a--c
(?|a(.)b|d(.(o).)d|i(.)(.)j)(.) ixyjp y $1-$2-$3 x-y-p
(?|(?|(a)|(b))|(?|(c)|(d))) a y $1 a
(?|(?|(a)|(b))|(?|(c)|(d))) b y $1 b
(?|(?|(a)|(b))|(?|(c)|(d))) c y $1 c
(?|(?|(a)|(b))|(?|(c)|(d))) d y $1 d
(.)(?|(.)(.)x|(.)d)(.) abcde y $1-$2-$3-$4-$5- b-c--e--
(\N)(?|(\N)(\N)x|(\N)d)(\N) abcde y $1-$2-$3-$4-$5- b-c--e--
(?|(?<foo>x)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
(?|(?<foo>x)|(?<bar>y)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
(?|(?<bar>y)|(?<foo>x)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
(?<bar>)(?|(?<foo>x)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
# Used to crash, because the last branch was ignored when the parens
# were counted:
(?|(b)|()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()(a)) a y $& a
#Bug #41492
(?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A) a y $& a
(?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A) aa y $& aa
\x{100}?(??{""})xxx xxx y $& xxx
foo(\R)bar foo\r\nbar y $1 \r\n
foo(\R)bar foo\nbar y $1 \n
foo(\R)bar foo\rbar y $1 \r
foo(\R+)bar foo\r\n\x{85}\r\n\nbar y $1 \r\n\x{85}\r\n\n
(\V+)(\R) foo\r\n\x{85}\r\n\nbar y $1-$2 foo-\r\n
(\R+)(\V) foo\r\n\x{85}\r\n\nbar y $1-$2 \r\n\x{85}\r\n\n-b
foo(\R)bar foo\x{85}bar y $1 \x{85}
(\V)(\R) foo\x{85}bar y $1-$2 o-\x{85}
(\R)(\V) foo\x{85}bar y $1-$2 \x{85}-b
foo(\R)bar foo\r\nbar y $1 \r\n
(\V)(\R) foo\r\nbar y $1-$2 o-\r\n
(\R)(\V) foo\r\nbar y $1-$2 \r\n-b
foo(\R)bar foo\r\nbar y $1 \r\n
(\V)(\R) foo\r\nbar y $1-$2 o-\r\n
(\R)(\V) foo\r\nbar y $1-$2 \r\n-b
foo(\R)bar foo\rbar y $1 \r
(\V)(\R) foo\rbar y $1-$2 o-\r
(\R)(\V) foo\rbar y $1-$2 \r-b
foo(\v+)bar foo\r\n\x{85}\r\n\nbar y $1 \r\n\x{85}\r\n\n
(\V+)(\v) foo\r\n\x{85}\r\n\nbar y $1-$2 foo-\r
(\v+)(\V) foo\r\n\x{85}\r\n\nbar y $1-$2 \r\n\x{85}\r\n\n-b
foo(\v)bar foo\x{85}bar y $1 \x{85}
(\V)(\v) foo\x{85}bar y $1-$2 o-\x{85}
(\v)(\V) foo\x{85}bar y $1-$2 \x{85}-b
foo(\v)bar foo\rbar y $1 \r
(\V)(\v) foo\rbar y $1-$2 o-\r
(\v)(\V) foo\rbar y $1-$2 \r-b
foo(\h+)bar foo\t\x{A0}bar y $1 \t\x{A0}
(\H+)(\h) foo\t\x{A0}bar y $1-$2 foo-\t
(\h+)(\H) foo\t\x{A0}bar y $1-$2 \t\x{A0}-b
foo(\h)bar foo\x{A0}bar y $1 \x{A0}
(\H)(\h) foo\x{A0}bar y $1-$2 o-\x{A0}
(\h)(\H) foo\x{A0}bar y $1-$2 \x{A0}-b
foo(\h)bar foo\tbar y $1 \t
(\H)(\h) foo\tbar y $1-$2 o-\t
(\h)(\H) foo\tbar y $1-$2 \t-b
.*\z foo\n y -$&- --
\N*\z foo\n y -$&- --
.*\Z foo\n y -$&- -foo-
\N*\Z foo\n y -$&- -foo-
^(?:(\d)x)?\d$ 1 y ${\(defined($1)?1:0)} 0
.*?(?:(\w)|(\w))x abx y $1-$2 b-
0{50} 000000000000000000000000000000000000000000000000000 y - -
^a?(?=b)b ab y $& ab # Bug #56690
^a*(?=b)b ab y $& ab # Bug #56690
/>\d+$ \n/ix >10\n y $& >10
/>\d+$ \n/ix >1\n y $& >1
/\d+$ \n/ix >10\n y $& 10
/>\d\d$ \n/ix >10\n y $& >10
/>\d+$ \n/x >10\n y $& >10
# Two regressions in 5.8.x (only) introduced by change 30638
# Simplification of the test failure in XML::LibXML::Simple:
/^\s*i.*?o\s*$/s io\n io y - -
# As reported in #59168 by Father Chrysostomos:
/(.*?)a(?!(a+)b\2c)/ baaabaac y $&-$1 baa-ba
# [perl #60344] Regex lookbehind failure after an (if)then|else in perl 5.10
/\A(?(?=db2)db2|\D+)(?<!processed)\.csv\z/xms sql_processed.csv n - -
/\N{U+0100}/ \x{100} y $& \x{100} # Bug #59328
/[a\N{U+0100}]/ \x{100} y $& \x{100}
/[a\N{U+0100}]/ a y $& a
# Verify that \N{U+...} forces Unicode rules
/\N{U+41}\x{c1}/i a\x{e1} y $& a\x{e1}
/[\N{U+41}\x{c1}]/i \x{e1} y $& \x{e1}
'\N{U+41}' A y $& A # Even for single quoted patterns
[\s][\S] \x{a0}\x{a0} n - - # Unicode complements should not match same character
# was generating malformed utf8
'[\x{100}\xff]'i \x{ff} y $& \x{ff}
((??{ "(?:|)" }))\s C\x20 y - -
# Verify that \ escapes the { after \N, and causes \N to match non-newline
abc\N\{U+BEEF} abc\n{UBEEF} n
abc\N\{U+BEEF\} abc.{UBEEF} y $& abc.{UBEEF}
[abc\N\{U+BEEF\}] - c - \\N in a character class must be a named character
# Verify that \N can be trailing and causes \N to match non-newline
abc\N abcd y $& abcd
abc\N abc\n n
# Verify get errors. For these, we need // or else puts it in single quotes,
# and bypasses the lexer.
/\N{U+}/ - c - Invalid hexadecimal number
/[\N{U+}]/ - c - Invalid hexadecimal number
/abc\N{def/ - c - Missing right brace
/\N{U+4AG3}/ - c - Invalid hexadecimal number
/[\N{U+4AG3}]/ - c - Invalid hexadecimal number
# And verify that in single quotes which bypasses the lexer, the regex compiler
# figures it out.
\N{U+} - c - Invalid hexadecimal number
[\N{U+}] - c - Invalid hexadecimal number
\N{U+4AG3} - c - Invalid hexadecimal number
[\N{U+4AG3}] - c - Invalid hexadecimal number
abc\N{def} - c - \\N{NAME} must be resolved by the lexer
abc\N{U+4AG3 - c - Missing right brace on \\N{}
abc\N{def - c - Missing right brace on \\N{}
abc\N{ - c - Missing right brace on \\N{}
# Verify that under /x that still cant have space before left brace
/abc\N {U+41}/x - c - Missing braces
/abc\N {SPACE}/x - c - Missing braces
# Verifies catches hex errors
/\N{U+0xBEEF}/ - c - Invalid hexadecimal number
# Used to be an error, but not any more:
/\N{U+BEEF.BEAD}/ - c -
# Verify works in single quotish context; regex compiler delivers slightly different msg
# \N{U+BEEF.BEAD} succeeds here, because can't completely hide it from the outside.
\N{U+0xBEEF} - c - Invalid hexadecimal number
\c` - ac - \"\\c`\" is more clearly written simply as \"\\ \"
\c1 - ac - \"\\c1\" is more clearly written simply as \"q\"
\c@ \0 y $& \0
\cA \001 y $& \001
\cB \002 y $& \002
\cC \003 y $& \003
\cI \011 y $& \011
\cJ \012 y $& \012
\cR \022 y $& \022
\cS \023 y $& \023
\cX \030 y $& \030
\cY \031 y $& \031
\cZ \032 y $& \032
\c[ \033 y $& \033
\c\X \034X y $& \034X
\c] \035 y $& \035
\c^ \036 y $& \036
\c_ \037 y $& \037
\c? \177 ay $& \177
\c? \x9F ey $& \x9F \c? is APC on EBCDIC
\400 \x{100} y $& \x{100}
\600 \x{180} y $& \x{180}
\777 \x{1FF} y $& \x{1FF}
[a\400] \x{100} y $& \x{100}
[b\600] \x{180} y $& \x{180}
[c\777] \x{1FF} y $& \x{1FF}
\o{120} \x{50} y $& \x{50}
\o{400} \x{100} y $& \x{100}
\o{1000} \x{200} y $& \x{200}
[a\o{120}] \x{50} y $& \x{50}
[a\o{400}] \x{100} y $& \x{100}
[a\o{1000}] \x{200} y $& \x{200}
# The below were inserting a NULL
\87 87 c - Reference to nonexistent group in regex
a\87 a87 c - Reference to nonexistent group in regex
a\97 a97 c - Reference to nonexistent group in regex
# avoid problems with 32-bit signed integer overflow
(.)\g2147483648} x c - Reference to nonexistent group in regex
(.)\g2147483649} x c - Reference to nonexistent group in regex
(.)\g2147483650} x c - Reference to nonexistent group in regex
(.)\g4294967296} x c - Reference to nonexistent group in regex
(.)\g4294967297} x c - Reference to nonexistent group in regex
(.)\g4294967298} x c - Reference to nonexistent group in regex
a(.)\g2147483648} x c - Reference to nonexistent group in regex
a(.)\g2147483649} x c - Reference to nonexistent group in regex
a(.)\g2147483650} x c - Reference to nonexistent group in regex
a(.)\g4294967296} x c - Reference to nonexistent group in regex
a(.)\g4294967297} x c - Reference to nonexistent group in regex
a(.)\g4294967298} x c - Reference to nonexistent group in regex
(.)\g{2147483648} x c - Reference to nonexistent group in regex
(.)\g{2147483649} x c - Reference to nonexistent group in regex
(.)\g{2147483650} x c - Reference to nonexistent group in regex
(.)\g{4294967296} x c - Reference to nonexistent group in regex
(.)\g{4294967297} x c - Reference to nonexistent group in regex
(.)\g{4294967298} x c - Reference to nonexistent group in regex
a(.)\g{2147483648} x c - Reference to nonexistent group in regex
a(.)\g{2147483649} x c - Reference to nonexistent group in regex
a(.)\g{2147483650} x c - Reference to nonexistent group in regex
a(.)\g{4294967296} x c - Reference to nonexistent group in regex
a(.)\g{4294967297} x c - Reference to nonexistent group in regex
a(.)\g{4294967298} x c - Reference to nonexistent group in regex
(.)\2147483648 b\o{214}7483648 ya $1 b \d not converted to native; \o{} is
(.)\2147483649 b\o{214}7483649 ya $1 b \d not converted to native; \o{} is
(.)\2147483650 b\o{214}7483650 ya $1 b \d not converted to native; \o{} is
(.)\4294967296 b\o{42}94967296 ya $1 b \d not converted to native; \o{} is
(.)\4294967297 b\o{42}94967297 ya $1 b \d not converted to native; \o{} is
(.)\4294967298 b\o{42}94967298 ya $1 b \d not converted to native; \o{} is
a(.)\2147483648 ab\o{214}7483648 ya $1 b \d not converted to native; \o{} is
a(.)\2147483649 ab\o{214}7483649 ya $1 b \d not converted to native; \o{} is
a(.)\2147483650 ab\o{214}7483650 ya $1 b \d not converted to native; \o{} is
a(.)\4294967296 ab\o{42}94967296 ya $1 b \d not converted to native; \o{} is
a(.)\4294967297 ab\o{42}94967297 ya $1 b \d not converted to native; \o{} is
a(.)\4294967298 ab\o{42}94967298 ya $1 b \d not converted to native; \o{} is
# The below was inserting a NULL into the character class.
[\8\9] \000 Sn - -
[\8\9] - sc $& Unrecognized escape \\8 in character class
[\8\9] 8 Sy $& 8
[\8\9] 9 Sy $& 9
# Verify that reads 1-3 octal digits, and that \_ works in char class
[\0] \000 Sy $& \000
[\0] - sc - Need exactly 3 octal digits
[\07] \007 Sy $& \007
[\07] - sc - Need exactly 3 octal digits
[\07] 7\000 Sn - -
[\07] - sc - Need exactly 3 octal digits
[\006] \006 y $& \006
[\006] 6\000 n - -
[\0005] \0005 y $& \000
[\0005] 5\000 y $& 5
[\_] _ y $& _
# RT #79152
(q1|.)*(q2|.)*(x(a|bc)*y){2,} xayxay y $& xayxay
(q1|.)*(q2|.)*(x(a|bc)*y){2,3} xayxay y $& xayxay
(q1|z)*(q2|z)*z{15}-.*?(x(a|bc)*y){2,3}Z zzzzzzzzzzzzzzzz-xayxayxayxayZ y $& zzzzzzzzzzzzzzzz-xayxayxayxayZ
(?:(?:)foo|bar|zot|rt78356) foo y $& foo
/\xe0\pL/i \xc0a y $& \xc0a
# RT #85528
(?{})[\x{100}] \x{100} y $& \x{100}
# RT #85964
^m?(\S)(.*)\1$ aba y $1 a
^m?(\S)(.*)\1$ \tb\t n - -
^m?(\s)(.*)\1$ \tb\t y $1 \t
^m?(\s)(.*)\1$ aba n - -
^m?(\W)(.*)\1$ :b: y $1 :
^m?(\W)(.*)\1$ aba n - -
^m?(\w)(.*)\1$ aba y $1 a
^m?(\w)(.*)\1$ :b: n - -
^m?(\D)(.*)\1$ aba y $1 a
^m?(\D)(.*)\1$ 5b5 n - -
^m?(\d)(.*)\1$ 5b5 y $1 5
^m?(\d)(.*)\1$ aba n - -
^_?[^\W_0-9]\w\z \xAA\x{100} y $& \xAA\x{100} [perl #127537]
# 17F is 'Long s'; This makes sure the a's in /aa can be separate
/s/ai \x{17F} y $& \x{17F}
/s/aia \x{17F} n - -
/s/aia S y $& S
/(?aia:s)/ \x{17F} n - -
/(?aia:s)/ S y $& S
# Normally 1E9E generates a multi-char fold, but not in inverted class;
# See [perl #89750]. This makes sure that the simple fold gets generated
# in that case, to DF.
/[^\x{1E9E}]/i \x{DF} Sn - -
# RT #96354
/^.*\d\H/ X1 n - -
/^.*\d\V/ X1 n - -
# \p{L_} was being misinterpreted as \p{L}. L_ matches cased letters, which
# the ideograph below isn't, whereas it does match L
/^\p{L_}/ \x{3400} n - -
/^\p{L}/ \x{3400} y $& \x{3400}
# RT #89774
/[s\xDF]a/ui ssa Sy $& ssa
/[s\xDF]a/ui sa y $& sa
# RT #99928
/^\R\x0A$/ \x0D\x0A n - -
/ff/i \x{FB00}\x{FB01} y $& \x{FB00}
/ff/i \x{FB01}\x{FB00} y $& \x{FB00}
/fi/i \x{FB01}\x{FB00} y $& \x{FB01}
/fi/i \x{FB00}\x{FB01} y $& \x{FB01}
#
# Make sure we don't see code blocks where there aren't, and vice-versa
(?#( (?{1+)a a y - -
'a# (?{1+'x a y - -
ab[(?{1] ab1 y - -
ab[(?{1\](?{2] ab2 y - -
ab(?{"["})cd abcd y - -
ab(??{"[x]"})cd abxcd y - -
ab\[(??{1})c ab[1c y - -
ab\\[(??{1;})]c ab\\;c y - -
ab\\\[(??{1})c ab\\[1c y - -
ab[c\](??{"]d abcd y - -
ab[c\\](??{"[x]"})d ab\\xd y - -
ab[c\\\](??{"x"})]{3}d ab\\](d y - -
# These test that doesn't cut-off matching too soon in the string for
# multi-char folds
/ffiffl/i abcdef\x{FB03}\x{FB04} y $& \x{FB03}\x{FB04}
/\xdf\xdf/ui abcdefssss y $& ssss
/st/i \x{DF}\x{FB05} y $& \x{FB05}
/ssst/i \x{DF}\x{FB05} y $& \x{DF}\x{FB05}
/[s]s/i \x{DF} n - -
/s[s]/i \x{DF} n - -
# [perl #101970]
/[[:lower:]]/i \x{100} y $& \x{100}
/[[:upper:]]/i \x{101} y $& \x{101}
# Was matching 'ss' only and failing the entire match, not seeing the
# alternative that would succeed
/s\xDF/ui \xDFs y $& \xDFs
/sst/ui s\N{LATIN SMALL LIGATURE ST} y $& s\N{LATIN SMALL LIGATURE ST}
/sst/ui s\N{LATIN SMALL LIGATURE LONG S T} y $& s\N{LATIN SMALL LIGATURE LONG S T}
# /i properties shouldn't match more than the property itself
/[[:ascii:]]/i \N{KELVIN SIGN} n - -
# [[:lower:]]/i and [[:upper:]]/i should match what \p{Lower} and \p{Upper} do.
# which is \p{Cased}, not \p{Alpha},
/[[:lower:]]/i \N{U+3400} n - -
/[[:upper:]]/i \N{U+01BB} n - -
# [perl #110648]
[^\p{Alphabetic}] \x{100} n - -
# [perl #111400]. Tests the first Y/N boundary above 255 for each of these.
/[[:alnum:]]/ \x{2c1} y - -
/[[:alnum:]]/ \x{2c2} n - -
/[[:alpha:]]/ \x{2c1} y - -
/[[:alpha:]]/ \x{2c2} n - -
/[[:graph:]]/ \x{377} y - -
/[[:graph:]]/ \x{378} n - -
/[[:lower:]]/ \x{100} n - -
/[[:lower:]]/ \x{101} y - -
/[[:lower:]]/ \x{102} n - -
/[[:print:]]/ \x{377} y - -
/[[:print:]]/ \x{378} n - -
/[[:punct:]]/ \x{37D} n - -
/[[:punct:]]/ \x{37E} y - -
/[[:punct:]]/ \x{388} n - -
/[[:upper:]]/ \x{100} y - -
/[[:upper:]]/ \x{101} n - -
/[[:word:]]/ \x{2c1} y - -
/[[:word:]]/ \x{2c2} n - -
# [perl #113400]
/syntax OK\s+\z/si t/bin/good.pl syntax OK\n y - -
/^(.*?)\s*\|\s*(?:\/\s*|)'(.+)'$/ text|'sec' y <$1><$2> <text><sec>
/^(foo|)bar$/ bar y <$&> <bar>
/^(foo||baz)bar$/ bar y <$&> <bar>
/^(foo||baz)bar$/ bazbar y <$1> <baz>
/^(foo||baz)bar$/ foobar y <$1> <foo>
/^(?:foo|)bar$/ bar y <$&> <bar>
/^(?:foo||baz)bar$/ bar y <$&> <bar>
/^(?:foo||baz)bar$/ bazbar y <$&> <bazbar>
/^(?:foo||baz)bar$/ foobar y <$&> <foobar>
/^(?i:foo|)bar$/ bar y <$&> <bar>
/^(?i:foo||baz)bar$/ bar y <$&> <bar>
/^(?i:foo||baz)bar$/ bazbar y <$&> <bazbar>
/^(?i:foo||baz)bar$/ foobar y <$&> <foobar>
# $^N, $+ on backtrackracking
# BRANCH
^(.)(?:(..)|B)[CX] ABCDE y $^N-$+ A-A -
# TRIE
^(.)(?:BC(.)|B)[CX] ABCDE y $^N-$+ A-A -
# CURLYX
^(.)(?:(.)+)*[BX] ABCDE y $^N-$+ A-A -
# CURLYM
^(.)(BC)* ABCDE y $^N-$+ BC-BC -
^(.)(BC)*[BX] ABCDE y $^N-$+ A-A -
# CURLYN
^(.)(B)*.[DX] ABCDE y $^N-$+ B-B -
^(.)(B)*.[CX] ABCDE y $^N-$+ A-A -
# using 'return' in code blocks
^(A)(?{"xyz"})B$ AB y $1-$^R A-xyz -
^(A)(?{return "xyz"})B$ AB y $1-$^R A-xyz -
^(A)((??{"xyz"}))$ Axyz y $1-$2 A-xyz -
^(A)((??{return "xyz"}))$ Axyz y $1-$2 A-xyz -
^(A)((?(?{1})abc|xyz))$ Aabc y $1-$2 A-abc -
^(A)((?(?{0})abc|xyz))$ Axyz y $1-$2 A-xyz -
^(A)((?(?{return 1})abc|xyz))$ Aabc y $1-$2 A-abc -
^(A)((?(?{return 0})abc|xyz))$ Axyz y $1-$2 A-xyz -
# using 'return' in code blocks with additional scopes to pop
^(A)(?{ { 1; return "xyz"} })B$ AB y $1-$^R A-xyz -
^(A)((??{ { 1; return "xyz" } }))$ Axyz y $1-$2 A-xyz -
^(A)((?(?{ { 1; return 1 } })abc|xyz))$ Aabc y $1-$2 A-abc -
^(A)((?(?{ { 1; return 0 } })abc|xyz))$ Axyz y $1-$2 A-xyz -
# pattern modifier flags should propagate into returned (??{}) pattern
# p,d,l not tested
/^(a)((??{"b"}))$/i AB y $1-$2 A-B -
/^(A)((??{'B$'}))(\nC)$/m AB\nC y $1-$2-$3 A-B-\nC -
/^(A)((??{'.'}))(B)$/s A\nB y $1-$2-$3 A-\n-B -
/^(A) ((??{' .'}))(B)$/x A B y $1-$2-$3 A- -B -
/^((??{'\d'}))$/a \x{660} n - -
/^(??{"s"})$/i \x{17F} y - -
/^(??{"s"})$/ia \x{17F} y - -
/^(??{"s"})$/iaa \x{17F} n - -
/^(??{'\w'})$/u \x{AA} y - -
# #113670 ensure any captures to the right are invalidated when CURLY
# and CURLYM backtrack
^(?:(X)?(\d)|(X)?(\d\d))$ X12 y $1-$2-$3-$4 --X-12
^(?:(XX)?(\d)|(XX)?(\d\d))$ XX12 y $1-$2-$3-$4 --XX-12
# rt 113770
\A(?>\[(?:(?:)(?:R){1}|T|V?|A)\])\z [A] y $& [A]
# rt 114068
/( [^z] $ [^z]+)/xm aa\nbb\ncc\n y $1 a\nbb\ncc\n
# [perl #114220]
/[\h]/ \x{A0} y $& \xA0
/[\H]/ \x{BF} y $& \xBF
/[\H]/ \x{A0} n - -
/[\H]/ \x{A1} y $& \xA1
[^\n]+ \nb y $& b
[^\n]+ a\n y $& a
# /a has no effect on properties
(?a:\p{Any}) \x{100} y $& \x{100}
(?aa:\p{Any}) \x{100} y $& \x{100}
\w \x{200C} y $& \x{200C}
\W \x{200C} n - -
\w \x{200D} y $& \x{200D}
\W \x{200D} n - -
/^(?d:\xdf|_)*_/i \x{17f}\x{17f}_ y $& \x{17f}\x{17f}_
#
# check that @-, @+ count chars, not bytes; especially if beginning of
# string is not copied
(\x{100}) \x{2000}\x{2000}\x{2000}\x{100} y $-[0]:$-[1]:$+[0]:$+[1] 3:3:4:4
^\R{2}$ \r\n\r\n y $& \r\n\r\n
/^\D{11}/a \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF} n - -
/^\S{11}/a \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF} n - -
/^\W{11}/a \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF} n - -
# [ perl #114272]
\Vn \xFFn/ y $& \xFFn
# These mostly exercize various paths in the optimizer
/(?l:a?\w)/ b y $& b
/(?l:a?\D)/ b y $& b
^_?[^\S_0-9]\w*\z \t y $& \t
m?^xy\?$? xy? y $& xy?
a?\X a\x{100} y $& a\x{100}
a?\R a\n y $& a\n
^a?\N$ a\n y $& a
\N?a \na y $& a
/\s?\s/l \t y $& \t
/\s?\d/l 3 y $& 3
/\s?\S/l A y $& A
# check we have the right utf8ness as we switch back and forth between
# patterns
^(\x{100}|a)(??{ qr/.?\xF7/d}) a_\xF7 y - -
# [perl #118375]
/(a|(bc)){0,0}?xyz/ xyz y $& xyz
/( a | ( bc ) ) {0,0} ? xyz/x xyz y $& xyz
/(a|(bc)){0,0}+xyz/ xyz y $& xyz
/( a | ( bc ) ) {0,0} + xyz/x xyz y $& xyz
(A(*PRUNE)B|A(*PRUNE)C) AC n - -
(A(*PRUNE)B|A(*PRUNE)D|A(*PRUNE)C) AC n - -
(A(*PRUNE)B|A(*PRUNE)C|A(*PRUNE)D) AC n - -
((A(*PRUNE)B|A(*PRUNE)C)) AC n - -
((A(*PRUNE)B|A(*PRUNE)D|A(*PRUNE)C)) AC n - -
((A(*PRUNE)B|A(*PRUNE)C|A(*PRUNE)D)) AC n - -
A+?(*THEN)BC AAABC y $& ABC
A+?(*PRUNE)BC AAABC y $& ABC
A+(*THEN)BC AAABC y $& AAABC
A+(*PRUNE)BC AAABC y $& AAABC
A+?(*THEN)BC(?{}) AAABC y $& ABC
A+?(*PRUNE)BC(?{}) AAABC y $& ABC
A+(*THEN)BC(?{}) AAABC y $& AAABC
A+(*PRUNE)BC(?{}) AAABC y $& AAABC
/[#]/ a#b y $& #
/[#]b/ a#b y $& #b
/[#]/x a#b y $& #
/[#]b/x a#b y $& #b
/[#](?{})/x a#b y $& #
/[#](??{'b'})/x a#b y $& #b
/(?#)(?{})b/ a#b y $& b
/(?#)(??{'b'})/ a#b y $& b
/[(?#](?{})b/ a#b y $& #b
/[(?#](??{'b'})/ a#b y $& #b
/(?#)(?{})b/x a#b y $& b
/(?#)(??{'b'})/x a#b y $& b
# RT #119069: PCRE regression test: no segfault
^(?=(a)){0}b(?1) back y $& ba
# RT #119071: PCRE regression test: No warning of infinite regression
(?:(a(*SKIP)b)){0}(?:(?1)|ac) x n - -
# RT #119073: PCRE regression test: {0} => NOTHING optimization
(?1)(?:(b)){0} b y $& b
# RT #120041
^A*\z y $&
/\N* /x ab y $& ab # Under /x was ignoring the '*'
/\N (?#comment) * /x ab y $& ab # likewise
# RT #120600: Variable length lookbehind is not variable
(?<W>a)(?<BB>(?=(?&W))(?<=(?&W)))(?&BB) aa y $& a # test repeated recursive patterns
# This group is from RT #121144
/^\S+=/d \x{3a3}=\x{3a0} y $& \x{3a3}=
/^\S+=/u \x{3a3}=\x{3a0} y $& \x{3a3}=
# utf8 cache length panics
\x{100}[xy]\x{100}{2} \x{100}y\x{100}\x{100} y $& \x{100}y\x{100}\x{100}
\x{100}a{2,3} \x{100}aaa y $& \x{100}aaa
^x?abc?de abcde y $& abcde
'(?-m:^abc)'m abcde y $& abc
'(?-m:^abc)'m x\nabcde n - -
# RT #121248 - segfault
/^[+]([^(]+)$/mi li n - -
# RT #121299 - Inconsistent behavior with backreferences nested inside subpattern references
/(.)((o)\1)(?2)/ fofof y $2 of
/(.)(?2)((\1)(?4)(\1))/ fffffff y $1 f
/(.)(?2)((.)(?4)(\1))/ foffoff y $2 off
/^(.\2?)(.)(?1)$/ abcb y $2 b
/^(.\1?)(?1)$/ aba y $1 a
/^ (\3(?2)\3)? ((.)) (?1) $/x aaba y $2 a
/^ (a|\3(?1)\2|(?2)) ((b|c)(?4)?) (?1) (d(?1)) $/x abbcdcabbda y $2 b
# RT #121321 - perl 5.19.10 infinite loops on backrefs > number of capture buffers (npar) where npar>9
/(a)\2/ a\2 c - Reference to nonexistent group in regex
/(a)(b)\3/ ab\3 c - Reference to nonexistent group in regex
/(a)(b)(c)\4/ abc\4 c - Reference to nonexistent group in regex
/(a)(b)(c)(d)\5/ abcd\5 c - Reference to nonexistent group in regex
/(a)(b)(c)(d)(e)\6/ abcde\6 c - Reference to nonexistent group in regex
/(a)(b)(c)(d)(e)(f)\7/ abcdef\7 c - Reference to nonexistent group in regex
/(a)(b)(c)(d)(e)(f)(g)(h)(i)\10/ abcdefghi\10 y $& abcdefghi\10
/(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)\11/ abcdefghij\11 y $& abcdefghij\11
/(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)\12/ abcdefghijk\12 y $& abcdefghijk\12
/(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)\12\13\14/ abcdefghijk\12\13\14 y $& abcdefghijk\12\13\14
\d<(.*?)> a<> n - -
[bcd].{2,3}aaaa XbXaaaaa y - -
[bcd].{2,3}aaaa Xb\x{100}aaaaa y - -
'\Awibble\z'm wibble y - -
/(alias|status)es$/i Statuses y $1 Status # [perl #121778]
/( (?&solution) | % ) \Z (?(DEFINE) (?<solution>7\%\ solution) )/x 7% solution y $1 7% solution # [perl #122890]
(.)(?{$~=$^N}) \x{100} y $~ \x{100} # [perl #123135]
/[a-z]/i \N{KELVIN SIGN} y $& \N{KELVIN SIGN}
/[A-Z]/ia \N{KELVIN SIGN} y $& \N{KELVIN SIGN}
/[A-Z]/iaa \N{KELVIN SIGN} n - -
/[A-Z]/i \N{LATIN SMALL LETTER LONG S} y $& \N{LATIN SMALL LETTER LONG S}
# RT #123840: these used to hang in re_intuit_start
/w\zxy?\z/i \x{100}a\x{80}a n - -
/w\z\R\z/i \x{100}a\x{80}a n - -
/(a+){1}+a/ aaa n - - # [perl #125825]
^((?(?=x)xb|ya)z) xbz y $1 xbz
^((?(?=x)xb|ya)z) yaz y $1 yaz
^((?(?!y)xb|ya)z) xbz y $1 xbz
^((?(?!y)xb|ya)z) yaz y $1 yaz
^((?(?!)xb|ya)z) xbz n - -
^((?(?!)xb|ya)z) yaz y $1 yaz # [perl-126222]
foo(*ACCEPT:foo) foo y $::REGMARK foo
(foo(*ACCEPT:foo)) foo y $::REGMARK foo
A(*FAIL:foo)[BC] A n $::REGERROR foo
\N(?#comment){SPACE} A c - Missing braces on \\N{}
ab(?#Comment){2}c abbc y $& abbc
\p A A c - Character following \\p must be '{' or a single-character Unicode property name # [perl #126187
\P:A A c - Character following \\P must be '{' or a single-character Unicode property name
\p^ A c - Character following \\p must be '{' or a single-character Unicode property name
\PU A c - Can't find Unicode property definition \"U\"
(?i - c - Sequence (?... not terminated
(?a-x - c - Sequence (?... not terminated
.{1}?? - c - Nested quantifiers
.{1}?+ - c - Nested quantifiers
(?:.||)(?|)000000000@ 000000000@ y $& 000000000@ # [perl #126405]
aa$|a(?R)a|a aaa y $& aaa # [perl 128420] recursive matches
(?:\1|a)([bcd])\1(?:(?R)|e)\1 abbaccaddedcb y $& abbaccaddedcb # [perl 128420] recursive match with backreferences
AB\s+\x{100} AB \x{100}X y - -
\b\z0*\x{100} .\x{100} n - - # [perl #129350] crashed in intuit_start
(.*?(a(a)|i(i))n) riiaan y $2-$3-$4-$1 aa-a--riiaan # Jump trie capture buffer issue [perl #129897]
(^(?:(\d)x)?\d$) 1 y [$1-$2] [1-] # make sure that we reset capture buffers properly (from regtry)
(X{2,}[-X]{1,4}){3,}X{2,} XXX-XXX-XXX-- n - - # [perl #130307]
/[a b]/x \N{SPACE} yS $& # Note a space char here
/[a b]/xx \N{SPACE} n - -
/[a\ b]/xx \N{SPACE} y $& # Note a space char here
/[ ^ a b ]/xx a n - -
/[ ^ a b ]/xx b n - -
/[ ^ a b ]/xx A y $& A
/(?x:[a b])/xx \N{SPACE} yS $& # Note a space char here
/(?xx:[a b])/x \N{SPACE} n - -
/(?x)[a b]/xx \N{SPACE} yS $& # Note a space char here
/(?xx)[a b]/x \N{SPACE} n - -
/(?-x:[a b])/xx \N{SPACE} yS $& # Note a space char here
^a?bcd\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff ABCDEFGHIJKLMNOPQRSTUVWXYZ n - - # [perl #132187] for valgrind's benefit
^Xaaa?Xaa aaa\x{400000} n - - # [perl #132552] for valgrind's benefit
# Keep these lines at the end of the file
# vim: softtabstop=0 noexpandtab