src/external/pcre2-10.32/testdata/testinput1

   1 # This set of tests is for features that are compatible with all versions of
   2 # Perl >= 5.10, in non-UTF mode. It should run clean for the 8-bit, 16-bit, and
   3 # 32-bit PCRE libraries, and also using the perltest.pl script.
   4
   5 #forbid_utf
   6 #newline_default lf any anycrlf
   7 #perltest
   8
   9 /the quick brown fox/
  10     the quick brown fox
  11     What do you know about the quick brown fox?
  12 \= Expect no match
  13     The quick brown FOX
  14     What do you know about THE QUICK BROWN FOX?
  15
  16 /The quick brown fox/i
  17     the quick brown fox
  18     The quick brown FOX
  19     What do you know about the quick brown fox?
  20     What do you know about THE QUICK BROWN FOX?
  21
  22 /abcd\t\n\r\f\a\e\071\x3b\$\\\?caxyz/
  23     abcd\t\n\r\f\a\e9;\$\\?caxyz
  24
  25 /a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz/
  26     abxyzpqrrrabbxyyyypqAzz
  27     abxyzpqrrrabbxyyyypqAzz
  28     aabxyzpqrrrabbxyyyypqAzz
  29     aaabxyzpqrrrabbxyyyypqAzz
  30     aaaabxyzpqrrrabbxyyyypqAzz
  31     abcxyzpqrrrabbxyyyypqAzz
  32     aabcxyzpqrrrabbxyyyypqAzz
  33     aaabcxyzpqrrrabbxyyyypAzz
  34     aaabcxyzpqrrrabbxyyyypqAzz
  35     aaabcxyzpqrrrabbxyyyypqqAzz
  36     aaabcxyzpqrrrabbxyyyypqqqAzz
  37     aaabcxyzpqrrrabbxyyyypqqqqAzz
  38     aaabcxyzpqrrrabbxyyyypqqqqqAzz
  39     aaabcxyzpqrrrabbxyyyypqqqqqqAzz
  40     aaaabcxyzpqrrrabbxyyyypqAzz
  41     abxyzzpqrrrabbxyyyypqAzz
  42     aabxyzzzpqrrrabbxyyyypqAzz
  43     aaabxyzzzzpqrrrabbxyyyypqAzz
  44     aaaabxyzzzzpqrrrabbxyyyypqAzz
  45     abcxyzzpqrrrabbxyyyypqAzz
  46     aabcxyzzzpqrrrabbxyyyypqAzz
  47     aaabcxyzzzzpqrrrabbxyyyypqAzz
  48     aaaabcxyzzzzpqrrrabbxyyyypqAzz
  49     aaaabcxyzzzzpqrrrabbbxyyyypqAzz
  50     aaaabcxyzzzzpqrrrabbbxyyyyypqAzz
  51     aaabcxyzpqrrrabbxyyyypABzz
  52     aaabcxyzpqrrrabbxyyyypABBzz
  53     >>>aaabxyzpqrrrabbxyyyypqAzz
  54     >aaaabxyzpqrrrabbxyyyypqAzz
  55     >>>>abcxyzpqrrrabbxyyyypqAzz
  56 \= Expect no match
  57     abxyzpqrrabbxyyyypqAzz
  58     abxyzpqrrrrabbxyyyypqAzz
  59     abxyzpqrrrabxyyyypqAzz
  60     aaaabcxyzzzzpqrrrabbbxyyyyyypqAzz
  61     aaaabcxyzzzzpqrrrabbbxyyypqAzz
  62     aaabcxyzpqrrrabbxyyyypqqqqqqqAzz
  63
  64 /^(abc){1,2}zz/
  65     abczz
  66     abcabczz
  67 \= Expect no match
  68     zz
  69     abcabcabczz
  70     >>abczz
  71
  72 /^(b+?|a){1,2}?c/
  73     bc
  74     bbc
  75     bbbc
  76     bac
  77     bbac
  78     aac
  79     abbbbbbbbbbbc
  80     bbbbbbbbbbbac
  81 \= Expect no match
  82     aaac
  83     abbbbbbbbbbbac
  84
  85 /^(b+|a){1,2}c/
  86     bc
  87     bbc
  88     bbbc
  89     bac
  90     bbac
  91     aac
  92     abbbbbbbbbbbc
  93     bbbbbbbbbbbac
  94 \= Expect no match
  95     aaac
  96     abbbbbbbbbbbac
  97
  98 /^(ba|b*){1,2}?bc/
  99     babc
 100     bbabc
 101     bababc
 102 \= Expect no match
 103     bababbc
 104     babababc
 105
 106 /^\ca\cA\c[;\c:/
 107     \x01\x01\e;z
 108
 109 /^[ab\]cde]/
 110     athing
 111     bthing
 112     ]thing
 113     cthing
 114     dthing
 115     ething
 116 \= Expect no match
 117     fthing
 118     [thing
 119     \\thing
 120
 121 /^[]cde]/
 122     ]thing
 123     cthing
 124     dthing
 125     ething
 126 \= Expect no match
 127     athing
 128     fthing
 129
 130 /^[^ab\]cde]/
 131     fthing
 132     [thing
 133     \\thing
 134 \= Expect no match
 135     athing
 136     bthing
 137     ]thing
 138     cthing
 139     dthing
 140     ething
 141
 142 /^[^]cde]/
 143     athing
 144     fthing
 145 \= Expect no match
 146     ]thing
 147     cthing
 148     dthing
 149     ething
 150
 151 /^\\81/
 152     \81
 153
 154 /^ÿ/
 155     ÿ
 156
 157 /^[0-9]+$/
 158     0
 159     1
 160     2
 161     3
 162     4
 163     5
 164     6
 165     7
 166     8
 167     9
 168     10
 169     100
 170 \= Expect no match
 171     abc
 172
 173 /^.*nter/
 174     enter
 175     inter
 176     uponter
 177
 178 /^xxx[0-9]+$/
 179     xxx0
 180     xxx1234
 181 \= Expect no match
 182     xxx
 183
 184 /^.+[0-9][0-9][0-9]$/
 185     x123
 186     x1234
 187     xx123
 188     123456
 189 \= Expect no match
 190     123
 191
 192 /^.+?[0-9][0-9][0-9]$/
 193     x123
 194     x1234
 195     xx123
 196     123456
 197 \= Expect no match
 198     123
 199
 200 /^([^!]+)!(.+)=apquxz\.ixr\.zzz\.ac\.uk$/
 201     abc!pqr=apquxz.ixr.zzz.ac.uk
 202 \= Expect no match
 203     !pqr=apquxz.ixr.zzz.ac.uk
 204     abc!=apquxz.ixr.zzz.ac.uk
 205     abc!pqr=apquxz:ixr.zzz.ac.uk
 206     abc!pqr=apquxz.ixr.zzz.ac.ukk
 207
 208 /:/
 209     Well, we need a colon: somewhere
 210 \= Expect no match
 211     Fail without a colon
 212
 213 /([\da-f:]+)$/i
 214     0abc
 215     abc
 216     fed
 217     E
 218     ::
 219     5f03:12C0::932e
 220     fed def
 221     Any old stuff
 222 \= Expect no match
 223     0zzz
 224     gzzz
 225     fed\x20
 226     Any old rubbish
 227
 228 /^.*\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/
 229     .1.2.3
 230     A.12.123.0
 231 \= Expect no match
 232     .1.2.3333
 233     1.2.3
 234     1234.2.3
 235
 236 /^(\d+)\s+IN\s+SOA\s+(\S+)\s+(\S+)\s*\(\s*$/
 237     1 IN SOA non-sp1 non-sp2(
 238     1    IN    SOA    non-sp1    non-sp2   (
 239 \= Expect no match
 240     1IN SOA non-sp1 non-sp2(
 241
 242 /^[a-zA-Z\d][a-zA-Z\d\-]*(\.[a-zA-Z\d][a-zA-z\d\-]*)*\.$/
 243     a.
 244     Z.
 245     2.
 246     ab-c.pq-r.
 247     sxk.zzz.ac.uk.
 248     x-.y-.
 249 \= Expect no match
 250     -abc.peq.
 251
 252 /^\*\.[a-z]([a-z\-\d]*[a-z\d]+)?(\.[a-z]([a-z\-\d]*[a-z\d]+)?)*$/
 253     *.a
 254     *.b0-a
 255     *.c3-b.c
 256     *.c-a.b-c
 257 \= Expect no match
 258     *.0
 259     *.a-
 260     *.a-b.c-
 261     *.c-a.0-c
 262
 263 /^(?=ab(de))(abd)(e)/
 264     abde
 265
 266 /^(?!(ab)de|x)(abd)(f)/
 267     abdf
 268
 269 /^(?=(ab(cd)))(ab)/
 270     abcd
 271
 272 /^[\da-f](\.[\da-f])*$/i
 273     a.b.c.d
 274     A.B.C.D
 275     a.b.c.1.2.3.C
 276
 277 /^\".*\"\s*(;.*)?$/
 278     \"1234\"
 279     \"abcd\" ;
 280     \"\" ; rhubarb
 281 \= Expect no match
 282     \"1234\" : things
 283
 284 /^$/
 285     \
 286 \= Expect no match
 287     A non-empty line
 288
 289 /   ^    a   (?# begins with a)  b\sc (?# then b c) $ (?# then end)/x
 290     ab c
 291 \= Expect no match
 292     abc
 293     ab cde
 294
 295 /(?x)   ^    a   (?# begins with a)  b\sc (?# then b c) $ (?# then end)/
 296     ab c
 297 \= Expect no match
 298     abc
 299     ab cde
 300
 301 /^   a\ b[c ]d       $/x
 302     a bcd
 303     a b d
 304 \= Expect no match
 305     abcd
 306     ab d
 307
 308 /^(a(b(c)))(d(e(f)))(h(i(j)))(k(l(m)))$/
 309     abcdefhijklm
 310
 311 /^(?:a(b(c)))(?:d(e(f)))(?:h(i(j)))(?:k(l(m)))$/
 312     abcdefhijklm
 313
 314 /^[\w][\W][\s][\S][\d][\D][\b][\n][\c]][\022]/
 315     a+ Z0+\x08\n\x1d\x12
 316
 317 /^[.^$|()*+?{,}]+/
 318     .^\$(*+)|{?,?}
 319
 320 /^a*\w/
 321     z
 322     az
 323     aaaz
 324     a
 325     aa
 326     aaaa
 327     a+
 328     aa+
 329
 330 /^a*?\w/
 331     z
 332     az
 333     aaaz
 334     a
 335     aa
 336     aaaa
 337     a+
 338     aa+
 339
 340 /^a+\w/
 341     az
 342     aaaz
 343     aa
 344     aaaa
 345     aa+
 346
 347 /^a+?\w/
 348     az
 349     aaaz
 350     aa
 351     aaaa
 352     aa+
 353
 354 /^\d{8}\w{2,}/
 355     1234567890
 356     12345678ab
 357     12345678__
 358 \= Expect no match
 359     1234567
 360
 361 /^[aeiou\d]{4,5}$/
 362     uoie
 363     1234
 364     12345
 365     aaaaa
 366 \= Expect no match
 367     123456
 368
 369 /^[aeiou\d]{4,5}?/
 370     uoie
 371     1234
 372     12345
 373     aaaaa
 374     123456
 375
 376 /\A(abc|def)=(\1){2,3}\Z/
 377     abc=abcabc
 378     def=defdefdef
 379 \= Expect no match
 380     abc=defdef
 381
 382 /^(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)\11*(\3\4)\1(?#)2$/
 383     abcdefghijkcda2
 384     abcdefghijkkkkcda2
 385
 386 /(cat(a(ract|tonic)|erpillar)) \1()2(3)/
 387     cataract cataract23
 388     catatonic catatonic23
 389     caterpillar caterpillar23
 390
 391
 392 /^From +([^ ]+) +[a-zA-Z][a-zA-Z][a-zA-Z] +[a-zA-Z][a-zA-Z][a-zA-Z] +[0-9]?[0-9] +[0-9][0-9]:[0-9][0-9]/
 393     From abcd  Mon Sep 01 12:33:02 1997
 394
 395 /^From\s+\S+\s+([a-zA-Z]{3}\s+){2}\d{1,2}\s+\d\d:\d\d/
 396     From abcd  Mon Sep 01 12:33:02 1997
 397     From abcd  Mon Sep  1 12:33:02 1997
 398 \= Expect no match
 399     From abcd  Sep 01 12:33:02 1997
 400
 401 /^12.34/s
 402     12\n34
 403     12\r34
 404
 405 /\w+(?=\t)/
 406     the quick brown\t fox
 407
 408 /foo(?!bar)(.*)/
 409     foobar is foolish see?
 410
 411 /(?:(?!foo)...|^.{0,2})bar(.*)/
 412     foobar crowbar etc
 413     barrel
 414     2barrel
 415     A barrel
 416
 417 /^(\D*)(?=\d)(?!123)/
 418     abc456
 419 \= Expect no match
 420     abc123
 421
 422 /^1234(?# test newlines
 423   inside)/
 424     1234
 425
 426 /^1234 #comment in extended re
 427   /x
 428     1234
 429
 430 /#rhubarb
 431   abcd/x
 432     abcd
 433
 434 /^abcd#rhubarb/x
 435     abcd
 436
 437 /^(a)\1{2,3}(.)/
 438     aaab
 439     aaaab
 440     aaaaab
 441     aaaaaab
 442
 443 /(?!^)abc/
 444     the abc
 445 \= Expect no match
 446     abc
 447
 448 /(?=^)abc/
 449     abc
 450 \= Expect no match
 451     the abc
 452
 453 /^[ab]{1,3}(ab*|b)/
 454     aabbbbb
 455
 456 /^[ab]{1,3}?(ab*|b)/
 457     aabbbbb
 458
 459 /^[ab]{1,3}?(ab*?|b)/
 460     aabbbbb
 461
 462 /^[ab]{1,3}(ab*?|b)/
 463     aabbbbb
 464
 465 /  (?: [\040\t] |  \(
 466 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 467 \)  )*                          # optional leading comment
 468 (?:    (?:
 469 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 470 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 471 |
 472 " (?:                      # opening quote...
 473 [^\\\x80-\xff\n\015"]                #   Anything except backslash and quote
 474 |                     #    or
 475 \\ [^\x80-\xff]           #   Escaped something (something != CR)
 476 )* "  # closing quote
 477 )                    # initial word
 478 (?:  (?: [\040\t] |  \(
 479 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 480 \)  )*  \.  (?: [\040\t] |  \(
 481 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 482 \)  )*   (?:
 483 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 484 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 485 |
 486 " (?:                      # opening quote...
 487 [^\\\x80-\xff\n\015"]                #   Anything except backslash and quote
 488 |                     #    or
 489 \\ [^\x80-\xff]           #   Escaped something (something != CR)
 490 )* "  # closing quote
 491 )  )* # further okay, if led by a period
 492 (?: [\040\t] |  \(
 493 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 494 \)  )*  @  (?: [\040\t] |  \(
 495 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 496 \)  )*    (?:
 497 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 498 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 499 |   \[                         # [
 500 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*    #    stuff
 501 \]                        #           ]
 502 )                           # initial subdomain
 503 (?:                                  #
 504 (?: [\040\t] |  \(
 505 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 506 \)  )*  \.                        # if led by a period...
 507 (?: [\040\t] |  \(
 508 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 509 \)  )*   (?:
 510 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 511 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 512 |   \[                         # [
 513 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*    #    stuff
 514 \]                        #           ]
 515 )                     #   ...further okay
 516 )*
 517 # address
 518 |                     #  or
 519 (?:
 520 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 521 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 522 |
 523 " (?:                      # opening quote...
 524 [^\\\x80-\xff\n\015"]                #   Anything except backslash and quote
 525 |                     #    or
 526 \\ [^\x80-\xff]           #   Escaped something (something != CR)
 527 )* "  # closing quote
 528 )             # one word, optionally followed by....
 529 (?:
 530 [^()<>@,;:".\\\[\]\x80-\xff\000-\010\012-\037]  |  # atom and space parts, or...
 531 \(
 532 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 533 \)       |  # comments, or...
 534
 535 " (?:                      # opening quote...
 536 [^\\\x80-\xff\n\015"]                #   Anything except backslash and quote
 537 |                     #    or
 538 \\ [^\x80-\xff]           #   Escaped something (something != CR)
 539 )* "  # closing quote
 540 # quoted strings
 541 )*
 542 <  (?: [\040\t] |  \(
 543 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 544 \)  )*                     # leading <
 545 (?:  @  (?: [\040\t] |  \(
 546 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 547 \)  )*    (?:
 548 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 549 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 550 |   \[                         # [
 551 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*    #    stuff
 552 \]                        #           ]
 553 )                           # initial subdomain
 554 (?:                                  #
 555 (?: [\040\t] |  \(
 556 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 557 \)  )*  \.                        # if led by a period...
 558 (?: [\040\t] |  \(
 559 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 560 \)  )*   (?:
 561 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 562 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 563 |   \[                         # [
 564 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*    #    stuff
 565 \]                        #           ]
 566 )                     #   ...further okay
 567 )*
 568
 569 (?:  (?: [\040\t] |  \(
 570 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 571 \)  )*  ,  (?: [\040\t] |  \(
 572 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 573 \)  )*  @  (?: [\040\t] |  \(
 574 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 575 \)  )*    (?:
 576 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 577 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 578 |   \[                         # [
 579 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*    #    stuff
 580 \]                        #           ]
 581 )                           # initial subdomain
 582 (?:                                  #
 583 (?: [\040\t] |  \(
 584 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 585 \)  )*  \.                        # if led by a period...
 586 (?: [\040\t] |  \(
 587 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 588 \)  )*   (?:
 589 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 590 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 591 |   \[                         # [
 592 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*    #    stuff
 593 \]                        #           ]
 594 )                     #   ...further okay
 595 )*
 596 )* # further okay, if led by comma
 597 :                                # closing colon
 598 (?: [\040\t] |  \(
 599 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 600 \)  )*  )? #       optional route
 601 (?:
 602 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 603 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 604 |
 605 " (?:                      # opening quote...
 606 [^\\\x80-\xff\n\015"]                #   Anything except backslash and quote
 607 |                     #    or
 608 \\ [^\x80-\xff]           #   Escaped something (something != CR)
 609 )* "  # closing quote
 610 )                    # initial word
 611 (?:  (?: [\040\t] |  \(
 612 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 613 \)  )*  \.  (?: [\040\t] |  \(
 614 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 615 \)  )*   (?:
 616 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 617 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 618 |
 619 " (?:                      # opening quote...
 620 [^\\\x80-\xff\n\015"]                #   Anything except backslash and quote
 621 |                     #    or
 622 \\ [^\x80-\xff]           #   Escaped something (something != CR)
 623 )* "  # closing quote
 624 )  )* # further okay, if led by a period
 625 (?: [\040\t] |  \(
 626 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 627 \)  )*  @  (?: [\040\t] |  \(
 628 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 629 \)  )*    (?:
 630 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 631 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 632 |   \[                         # [
 633 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*    #    stuff
 634 \]                        #           ]
 635 )                           # initial subdomain
 636 (?:                                  #
 637 (?: [\040\t] |  \(
 638 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 639 \)  )*  \.                        # if led by a period...
 640 (?: [\040\t] |  \(
 641 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 642 \)  )*   (?:
 643 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 644 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 645 |   \[                         # [
 646 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*    #    stuff
 647 \]                        #           ]
 648 )                     #   ...further okay
 649 )*
 650 #       address spec
 651 (?: [\040\t] |  \(
 652 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 653 \)  )*  > #                  trailing >
 654 # name and address
 655 )  (?: [\040\t] |  \(
 656 (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  |  \( (?:  [^\\\x80-\xff\n\015()]  |  \\ [^\x80-\xff]  )* \)  )*
 657 \)  )*                       # optional trailing comment
 658 /x
 659     Alan Other <user\@dom.ain>
 660     <user\@dom.ain>
 661     user\@dom.ain
 662     \"A. Other\" <user.1234\@dom.ain> (a comment)
 663     A. Other <user.1234\@dom.ain> (a comment)
 664     \"/s=user/ou=host/o=place/prmd=uu.yy/admd= /c=gb/\"\@x400-re.lay
 665     A missing angle <user\@some.where
 666 \= Expect no match
 667     The quick brown fox
 668
 669 /[\040\t]*                    # Nab whitespace.
 670 (?:
 671 \(                              #  (
 672 [^\\\x80-\xff\n\015()] *                             #     normal*
 673 (?:                                 #       (
 674 (?:  \\ [^\x80-\xff]  |
 675 \(                            #  (
 676 [^\\\x80-\xff\n\015()] *                            #     normal*
 677 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 678 \)                           #                       )
 679 )    #         special
 680 [^\\\x80-\xff\n\015()] *                         #         normal*
 681 )*                                  #            )*
 682 \)                             #                )
 683 [\040\t]* )*    # If comment found, allow more spaces.
 684 # optional leading comment
 685 (?:
 686 (?:
 687 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 688 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 689 # Atom
 690 |                       #  or
 691 "                                     # "
 692 [^\\\x80-\xff\n\015"] *                            #   normal
 693 (?:  \\ [^\x80-\xff]  [^\\\x80-\xff\n\015"] * )*        #   ( special normal* )*
 694 "                                     #        "
 695 # Quoted string
 696 )
 697 [\040\t]*                    # Nab whitespace.
 698 (?:
 699 \(                              #  (
 700 [^\\\x80-\xff\n\015()] *                             #     normal*
 701 (?:                                 #       (
 702 (?:  \\ [^\x80-\xff]  |
 703 \(                            #  (
 704 [^\\\x80-\xff\n\015()] *                            #     normal*
 705 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 706 \)                           #                       )
 707 )    #         special
 708 [^\\\x80-\xff\n\015()] *                         #         normal*
 709 )*                                  #            )*
 710 \)                             #                )
 711 [\040\t]* )*    # If comment found, allow more spaces.
 712 (?:
 713 \.
 714 [\040\t]*                    # Nab whitespace.
 715 (?:
 716 \(                              #  (
 717 [^\\\x80-\xff\n\015()] *                             #     normal*
 718 (?:                                 #       (
 719 (?:  \\ [^\x80-\xff]  |
 720 \(                            #  (
 721 [^\\\x80-\xff\n\015()] *                            #     normal*
 722 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 723 \)                           #                       )
 724 )    #         special
 725 [^\\\x80-\xff\n\015()] *                         #         normal*
 726 )*                                  #            )*
 727 \)                             #                )
 728 [\040\t]* )*    # If comment found, allow more spaces.
 729 (?:
 730 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 731 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 732 # Atom
 733 |                       #  or
 734 "                                     # "
 735 [^\\\x80-\xff\n\015"] *                            #   normal
 736 (?:  \\ [^\x80-\xff]  [^\\\x80-\xff\n\015"] * )*        #   ( special normal* )*
 737 "                                     #        "
 738 # Quoted string
 739 )
 740 [\040\t]*                    # Nab whitespace.
 741 (?:
 742 \(                              #  (
 743 [^\\\x80-\xff\n\015()] *                             #     normal*
 744 (?:                                 #       (
 745 (?:  \\ [^\x80-\xff]  |
 746 \(                            #  (
 747 [^\\\x80-\xff\n\015()] *                            #     normal*
 748 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 749 \)                           #                       )
 750 )    #         special
 751 [^\\\x80-\xff\n\015()] *                         #         normal*
 752 )*                                  #            )*
 753 \)                             #                )
 754 [\040\t]* )*    # If comment found, allow more spaces.
 755 # additional words
 756 )*
 757 @
 758 [\040\t]*                    # Nab whitespace.
 759 (?:
 760 \(                              #  (
 761 [^\\\x80-\xff\n\015()] *                             #     normal*
 762 (?:                                 #       (
 763 (?:  \\ [^\x80-\xff]  |
 764 \(                            #  (
 765 [^\\\x80-\xff\n\015()] *                            #     normal*
 766 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 767 \)                           #                       )
 768 )    #         special
 769 [^\\\x80-\xff\n\015()] *                         #         normal*
 770 )*                                  #            )*
 771 \)                             #                )
 772 [\040\t]* )*    # If comment found, allow more spaces.
 773 (?:
 774 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 775 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 776 |
 777 \[                            # [
 778 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*     #    stuff
 779 \]                           #           ]
 780 )
 781 [\040\t]*                    # Nab whitespace.
 782 (?:
 783 \(                              #  (
 784 [^\\\x80-\xff\n\015()] *                             #     normal*
 785 (?:                                 #       (
 786 (?:  \\ [^\x80-\xff]  |
 787 \(                            #  (
 788 [^\\\x80-\xff\n\015()] *                            #     normal*
 789 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 790 \)                           #                       )
 791 )    #         special
 792 [^\\\x80-\xff\n\015()] *                         #         normal*
 793 )*                                  #            )*
 794 \)                             #                )
 795 [\040\t]* )*    # If comment found, allow more spaces.
 796 # optional trailing comments
 797 (?:
 798 \.
 799 [\040\t]*                    # Nab whitespace.
 800 (?:
 801 \(                              #  (
 802 [^\\\x80-\xff\n\015()] *                             #     normal*
 803 (?:                                 #       (
 804 (?:  \\ [^\x80-\xff]  |
 805 \(                            #  (
 806 [^\\\x80-\xff\n\015()] *                            #     normal*
 807 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 808 \)                           #                       )
 809 )    #         special
 810 [^\\\x80-\xff\n\015()] *                         #         normal*
 811 )*                                  #            )*
 812 \)                             #                )
 813 [\040\t]* )*    # If comment found, allow more spaces.
 814 (?:
 815 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 816 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 817 |
 818 \[                            # [
 819 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*     #    stuff
 820 \]                           #           ]
 821 )
 822 [\040\t]*                    # Nab whitespace.
 823 (?:
 824 \(                              #  (
 825 [^\\\x80-\xff\n\015()] *                             #     normal*
 826 (?:                                 #       (
 827 (?:  \\ [^\x80-\xff]  |
 828 \(                            #  (
 829 [^\\\x80-\xff\n\015()] *                            #     normal*
 830 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 831 \)                           #                       )
 832 )    #         special
 833 [^\\\x80-\xff\n\015()] *                         #         normal*
 834 )*                                  #            )*
 835 \)                             #                )
 836 [\040\t]* )*    # If comment found, allow more spaces.
 837 # optional trailing comments
 838 )*
 839 # address
 840 |                             #  or
 841 (?:
 842 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 843 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 844 # Atom
 845 |                       #  or
 846 "                                     # "
 847 [^\\\x80-\xff\n\015"] *                            #   normal
 848 (?:  \\ [^\x80-\xff]  [^\\\x80-\xff\n\015"] * )*        #   ( special normal* )*
 849 "                                     #        "
 850 # Quoted string
 851 )
 852 # leading word
 853 [^()<>@,;:".\\\[\]\x80-\xff\000-\010\012-\037] *               # "normal" atoms and or spaces
 854 (?:
 855 (?:
 856 \(                              #  (
 857 [^\\\x80-\xff\n\015()] *                             #     normal*
 858 (?:                                 #       (
 859 (?:  \\ [^\x80-\xff]  |
 860 \(                            #  (
 861 [^\\\x80-\xff\n\015()] *                            #     normal*
 862 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 863 \)                           #                       )
 864 )    #         special
 865 [^\\\x80-\xff\n\015()] *                         #         normal*
 866 )*                                  #            )*
 867 \)                             #                )
 868 |
 869 "                                     # "
 870 [^\\\x80-\xff\n\015"] *                            #   normal
 871 (?:  \\ [^\x80-\xff]  [^\\\x80-\xff\n\015"] * )*        #   ( special normal* )*
 872 "                                     #        "
 873 ) # "special" comment or quoted string
 874 [^()<>@,;:".\\\[\]\x80-\xff\000-\010\012-\037] *            #  more "normal"
 875 )*
 876 <
 877 [\040\t]*                    # Nab whitespace.
 878 (?:
 879 \(                              #  (
 880 [^\\\x80-\xff\n\015()] *                             #     normal*
 881 (?:                                 #       (
 882 (?:  \\ [^\x80-\xff]  |
 883 \(                            #  (
 884 [^\\\x80-\xff\n\015()] *                            #     normal*
 885 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 886 \)                           #                       )
 887 )    #         special
 888 [^\\\x80-\xff\n\015()] *                         #         normal*
 889 )*                                  #            )*
 890 \)                             #                )
 891 [\040\t]* )*    # If comment found, allow more spaces.
 892 # <
 893 (?:
 894 @
 895 [\040\t]*                    # Nab whitespace.
 896 (?:
 897 \(                              #  (
 898 [^\\\x80-\xff\n\015()] *                             #     normal*
 899 (?:                                 #       (
 900 (?:  \\ [^\x80-\xff]  |
 901 \(                            #  (
 902 [^\\\x80-\xff\n\015()] *                            #     normal*
 903 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 904 \)                           #                       )
 905 )    #         special
 906 [^\\\x80-\xff\n\015()] *                         #         normal*
 907 )*                                  #            )*
 908 \)                             #                )
 909 [\040\t]* )*    # If comment found, allow more spaces.
 910 (?:
 911 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 912 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 913 |
 914 \[                            # [
 915 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*     #    stuff
 916 \]                           #           ]
 917 )
 918 [\040\t]*                    # Nab whitespace.
 919 (?:
 920 \(                              #  (
 921 [^\\\x80-\xff\n\015()] *                             #     normal*
 922 (?:                                 #       (
 923 (?:  \\ [^\x80-\xff]  |
 924 \(                            #  (
 925 [^\\\x80-\xff\n\015()] *                            #     normal*
 926 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 927 \)                           #                       )
 928 )    #         special
 929 [^\\\x80-\xff\n\015()] *                         #         normal*
 930 )*                                  #            )*
 931 \)                             #                )
 932 [\040\t]* )*    # If comment found, allow more spaces.
 933 # optional trailing comments
 934 (?:
 935 \.
 936 [\040\t]*                    # Nab whitespace.
 937 (?:
 938 \(                              #  (
 939 [^\\\x80-\xff\n\015()] *                             #     normal*
 940 (?:                                 #       (
 941 (?:  \\ [^\x80-\xff]  |
 942 \(                            #  (
 943 [^\\\x80-\xff\n\015()] *                            #     normal*
 944 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 945 \)                           #                       )
 946 )    #         special
 947 [^\\\x80-\xff\n\015()] *                         #         normal*
 948 )*                                  #            )*
 949 \)                             #                )
 950 [\040\t]* )*    # If comment found, allow more spaces.
 951 (?:
 952 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
 953 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
 954 |
 955 \[                            # [
 956 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*     #    stuff
 957 \]                           #           ]
 958 )
 959 [\040\t]*                    # Nab whitespace.
 960 (?:
 961 \(                              #  (
 962 [^\\\x80-\xff\n\015()] *                             #     normal*
 963 (?:                                 #       (
 964 (?:  \\ [^\x80-\xff]  |
 965 \(                            #  (
 966 [^\\\x80-\xff\n\015()] *                            #     normal*
 967 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 968 \)                           #                       )
 969 )    #         special
 970 [^\\\x80-\xff\n\015()] *                         #         normal*
 971 )*                                  #            )*
 972 \)                             #                )
 973 [\040\t]* )*    # If comment found, allow more spaces.
 974 # optional trailing comments
 975 )*
 976 (?: ,
 977 [\040\t]*                    # Nab whitespace.
 978 (?:
 979 \(                              #  (
 980 [^\\\x80-\xff\n\015()] *                             #     normal*
 981 (?:                                 #       (
 982 (?:  \\ [^\x80-\xff]  |
 983 \(                            #  (
 984 [^\\\x80-\xff\n\015()] *                            #     normal*
 985 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
 986 \)                           #                       )
 987 )    #         special
 988 [^\\\x80-\xff\n\015()] *                         #         normal*
 989 )*                                  #            )*
 990 \)                             #                )
 991 [\040\t]* )*    # If comment found, allow more spaces.
 992 @
 993 [\040\t]*                    # Nab whitespace.
 994 (?:
 995 \(                              #  (
 996 [^\\\x80-\xff\n\015()] *                             #     normal*
 997 (?:                                 #       (
 998 (?:  \\ [^\x80-\xff]  |
 999 \(                            #  (
1000 [^\\\x80-\xff\n\015()] *                            #     normal*
1001 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1002 \)                           #                       )
1003 )    #         special
1004 [^\\\x80-\xff\n\015()] *                         #         normal*
1005 )*                                  #            )*
1006 \)                             #                )
1007 [\040\t]* )*    # If comment found, allow more spaces.
1008 (?:
1009 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
1010 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
1011 |
1012 \[                            # [
1013 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*     #    stuff
1014 \]                           #           ]
1015 )
1016 [\040\t]*                    # Nab whitespace.
1017 (?:
1018 \(                              #  (
1019 [^\\\x80-\xff\n\015()] *                             #     normal*
1020 (?:                                 #       (
1021 (?:  \\ [^\x80-\xff]  |
1022 \(                            #  (
1023 [^\\\x80-\xff\n\015()] *                            #     normal*
1024 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1025 \)                           #                       )
1026 )    #         special
1027 [^\\\x80-\xff\n\015()] *                         #         normal*
1028 )*                                  #            )*
1029 \)                             #                )
1030 [\040\t]* )*    # If comment found, allow more spaces.
1031 # optional trailing comments
1032 (?:
1033 \.
1034 [\040\t]*                    # Nab whitespace.
1035 (?:
1036 \(                              #  (
1037 [^\\\x80-\xff\n\015()] *                             #     normal*
1038 (?:                                 #       (
1039 (?:  \\ [^\x80-\xff]  |
1040 \(                            #  (
1041 [^\\\x80-\xff\n\015()] *                            #     normal*
1042 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1043 \)                           #                       )
1044 )    #         special
1045 [^\\\x80-\xff\n\015()] *                         #         normal*
1046 )*                                  #            )*
1047 \)                             #                )
1048 [\040\t]* )*    # If comment found, allow more spaces.
1049 (?:
1050 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
1051 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
1052 |
1053 \[                            # [
1054 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*     #    stuff
1055 \]                           #           ]
1056 )
1057 [\040\t]*                    # Nab whitespace.
1058 (?:
1059 \(                              #  (
1060 [^\\\x80-\xff\n\015()] *                             #     normal*
1061 (?:                                 #       (
1062 (?:  \\ [^\x80-\xff]  |
1063 \(                            #  (
1064 [^\\\x80-\xff\n\015()] *                            #     normal*
1065 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1066 \)                           #                       )
1067 )    #         special
1068 [^\\\x80-\xff\n\015()] *                         #         normal*
1069 )*                                  #            )*
1070 \)                             #                )
1071 [\040\t]* )*    # If comment found, allow more spaces.
1072 # optional trailing comments
1073 )*
1074 )*  # additional domains
1075 :
1076 [\040\t]*                    # Nab whitespace.
1077 (?:
1078 \(                              #  (
1079 [^\\\x80-\xff\n\015()] *                             #     normal*
1080 (?:                                 #       (
1081 (?:  \\ [^\x80-\xff]  |
1082 \(                            #  (
1083 [^\\\x80-\xff\n\015()] *                            #     normal*
1084 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1085 \)                           #                       )
1086 )    #         special
1087 [^\\\x80-\xff\n\015()] *                         #         normal*
1088 )*                                  #            )*
1089 \)                             #                )
1090 [\040\t]* )*    # If comment found, allow more spaces.
1091 # optional trailing comments
1092 )?     #       optional route
1093 (?:
1094 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
1095 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
1096 # Atom
1097 |                       #  or
1098 "                                     # "
1099 [^\\\x80-\xff\n\015"] *                            #   normal
1100 (?:  \\ [^\x80-\xff]  [^\\\x80-\xff\n\015"] * )*        #   ( special normal* )*
1101 "                                     #        "
1102 # Quoted string
1103 )
1104 [\040\t]*                    # Nab whitespace.
1105 (?:
1106 \(                              #  (
1107 [^\\\x80-\xff\n\015()] *                             #     normal*
1108 (?:                                 #       (
1109 (?:  \\ [^\x80-\xff]  |
1110 \(                            #  (
1111 [^\\\x80-\xff\n\015()] *                            #     normal*
1112 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1113 \)                           #                       )
1114 )    #         special
1115 [^\\\x80-\xff\n\015()] *                         #         normal*
1116 )*                                  #            )*
1117 \)                             #                )
1118 [\040\t]* )*    # If comment found, allow more spaces.
1119 (?:
1120 \.
1121 [\040\t]*                    # Nab whitespace.
1122 (?:
1123 \(                              #  (
1124 [^\\\x80-\xff\n\015()] *                             #     normal*
1125 (?:                                 #       (
1126 (?:  \\ [^\x80-\xff]  |
1127 \(                            #  (
1128 [^\\\x80-\xff\n\015()] *                            #     normal*
1129 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1130 \)                           #                       )
1131 )    #         special
1132 [^\\\x80-\xff\n\015()] *                         #         normal*
1133 )*                                  #            )*
1134 \)                             #                )
1135 [\040\t]* )*    # If comment found, allow more spaces.
1136 (?:
1137 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
1138 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
1139 # Atom
1140 |                       #  or
1141 "                                     # "
1142 [^\\\x80-\xff\n\015"] *                            #   normal
1143 (?:  \\ [^\x80-\xff]  [^\\\x80-\xff\n\015"] * )*        #   ( special normal* )*
1144 "                                     #        "
1145 # Quoted string
1146 )
1147 [\040\t]*                    # Nab whitespace.
1148 (?:
1149 \(                              #  (
1150 [^\\\x80-\xff\n\015()] *                             #     normal*
1151 (?:                                 #       (
1152 (?:  \\ [^\x80-\xff]  |
1153 \(                            #  (
1154 [^\\\x80-\xff\n\015()] *                            #     normal*
1155 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1156 \)                           #                       )
1157 )    #         special
1158 [^\\\x80-\xff\n\015()] *                         #         normal*
1159 )*                                  #            )*
1160 \)                             #                )
1161 [\040\t]* )*    # If comment found, allow more spaces.
1162 # additional words
1163 )*
1164 @
1165 [\040\t]*                    # Nab whitespace.
1166 (?:
1167 \(                              #  (
1168 [^\\\x80-\xff\n\015()] *                             #     normal*
1169 (?:                                 #       (
1170 (?:  \\ [^\x80-\xff]  |
1171 \(                            #  (
1172 [^\\\x80-\xff\n\015()] *                            #     normal*
1173 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1174 \)                           #                       )
1175 )    #         special
1176 [^\\\x80-\xff\n\015()] *                         #         normal*
1177 )*                                  #            )*
1178 \)                             #                )
1179 [\040\t]* )*    # If comment found, allow more spaces.
1180 (?:
1181 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
1182 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
1183 |
1184 \[                            # [
1185 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*     #    stuff
1186 \]                           #           ]
1187 )
1188 [\040\t]*                    # Nab whitespace.
1189 (?:
1190 \(                              #  (
1191 [^\\\x80-\xff\n\015()] *                             #     normal*
1192 (?:                                 #       (
1193 (?:  \\ [^\x80-\xff]  |
1194 \(                            #  (
1195 [^\\\x80-\xff\n\015()] *                            #     normal*
1196 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1197 \)                           #                       )
1198 )    #         special
1199 [^\\\x80-\xff\n\015()] *                         #         normal*
1200 )*                                  #            )*
1201 \)                             #                )
1202 [\040\t]* )*    # If comment found, allow more spaces.
1203 # optional trailing comments
1204 (?:
1205 \.
1206 [\040\t]*                    # Nab whitespace.
1207 (?:
1208 \(                              #  (
1209 [^\\\x80-\xff\n\015()] *                             #     normal*
1210 (?:                                 #       (
1211 (?:  \\ [^\x80-\xff]  |
1212 \(                            #  (
1213 [^\\\x80-\xff\n\015()] *                            #     normal*
1214 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1215 \)                           #                       )
1216 )    #         special
1217 [^\\\x80-\xff\n\015()] *                         #         normal*
1218 )*                                  #            )*
1219 \)                             #                )
1220 [\040\t]* )*    # If comment found, allow more spaces.
1221 (?:
1222 [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+    # some number of atom characters...
1223 (?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]) # ..not followed by something that could be part of an atom
1224 |
1225 \[                            # [
1226 (?: [^\\\x80-\xff\n\015\[\]] |  \\ [^\x80-\xff]  )*     #    stuff
1227 \]                           #           ]
1228 )
1229 [\040\t]*                    # Nab whitespace.
1230 (?:
1231 \(                              #  (
1232 [^\\\x80-\xff\n\015()] *                             #     normal*
1233 (?:                                 #       (
1234 (?:  \\ [^\x80-\xff]  |
1235 \(                            #  (
1236 [^\\\x80-\xff\n\015()] *                            #     normal*
1237 (?:  \\ [^\x80-\xff]   [^\\\x80-\xff\n\015()] * )*        #     (special normal*)*
1238 \)                           #                       )
1239 )    #         special
1240 [^\\\x80-\xff\n\015()] *                         #         normal*
1241 )*                                  #            )*
1242 \)                             #                )
1243 [\040\t]* )*    # If comment found, allow more spaces.
1244 # optional trailing comments
1245 )*
1246 #       address spec
1247 >                    #                 >
1248 # name and address
1249 )
1250 /x
1251     Alan Other <user\@dom.ain>
1252     <user\@dom.ain>
1253     user\@dom.ain
1254     \"A. Other\" <user.1234\@dom.ain> (a comment)
1255     A. Other <user.1234\@dom.ain> (a comment)
1256     \"/s=user/ou=host/o=place/prmd=uu.yy/admd= /c=gb/\"\@x400-re.lay
1257     A missing angle <user\@some.where
1258 \= Expect no match
1259     The quick brown fox
1260
1261 /abc\0def\00pqr\000xyz\0000AB/
1262     abc\0def\00pqr\000xyz\0000AB
1263     abc456 abc\0def\00pqr\000xyz\0000ABCDE
1264
1265 /abc\x0def\x00pqr\x000xyz\x0000AB/
1266     abc\x0def\x00pqr\x000xyz\x0000AB
1267     abc456 abc\x0def\x00pqr\x000xyz\x0000ABCDE
1268
1269 /^[\000-\037]/
1270     \0A
1271     \01B
1272     \037C
1273
1274 /\0*/
1275     \0\0\0\0
1276
1277 /A\x0{2,3}Z/
1278     The A\x0\x0Z
1279     An A\0\x0\0Z
1280 \= Expect no match
1281     A\0Z
1282     A\0\x0\0\x0Z
1283
1284 /^(cow|)\1(bell)/
1285     cowcowbell
1286     bell
1287 \= Expect no match
1288     cowbell
1289
1290 /^\s/
1291     \040abc
1292     \x0cabc
1293     \nabc
1294     \rabc
1295     \tabc
1296 \= Expect no match
1297     abc
1298
1299 /^a     b
1300     \f  c/x
1301     abc
1302
1303 /^(a|)\1*b/
1304     ab
1305     aaaab
1306     b
1307 \= Expect no match
1308     acb
1309
1310 /^(a|)\1+b/
1311     aab
1312     aaaab
1313     b
1314 \= Expect no match
1315     ab
1316
1317 /^(a|)\1?b/
1318     ab
1319     aab
1320     b
1321 \= Expect no match
1322     acb
1323
1324 /^(a|)\1{2}b/
1325     aaab
1326     b
1327 \= Expect no match
1328     ab
1329     aab
1330     aaaab
1331
1332 /^(a|)\1{2,3}b/
1333     aaab
1334     aaaab
1335     b
1336 \= Expect no match
1337     ab
1338     aab
1339     aaaaab
1340
1341 /ab{1,3}bc/
1342     abbbbc
1343     abbbc
1344     abbc
1345 \= Expect no match
1346     abc
1347     abbbbbc
1348
1349 /([^.]*)\.([^:]*):[T ]+(.*)/
1350     track1.title:TBlah blah blah
1351
1352 /([^.]*)\.([^:]*):[T ]+(.*)/i
1353     track1.title:TBlah blah blah
1354
1355 /([^.]*)\.([^:]*):[t ]+(.*)/i
1356     track1.title:TBlah blah blah
1357
1358 /^[W-c]+$/
1359     WXY_^abc
1360 \= Expect no match
1361     wxy
1362
1363 /^[W-c]+$/i
1364     WXY_^abc
1365     wxy_^ABC
1366
1367 /^[\x3f-\x5F]+$/i
1368     WXY_^abc
1369     wxy_^ABC
1370
1371 /^abc$/m
1372     abc
1373     qqq\nabc
1374     abc\nzzz
1375     qqq\nabc\nzzz
1376
1377 /^abc$/
1378     abc
1379 \= Expect no match
1380     qqq\nabc
1381     abc\nzzz
1382     qqq\nabc\nzzz
1383
1384 /\Aabc\Z/m
1385     abc
1386     abc\n
1387 \= Expect no match
1388     qqq\nabc
1389     abc\nzzz
1390     qqq\nabc\nzzz
1391
1392 /\A(.)*\Z/s
1393     abc\ndef
1394
1395 /\A(.)*\Z/m
1396 \= Expect no match
1397     abc\ndef
1398
1399 /(?:b)|(?::+)/
1400     b::c
1401     c::b
1402
1403 /[-az]+/
1404     az-
1405 \= Expect no match
1406     b
1407
1408 /[az-]+/
1409     za-
1410 \= Expect no match
1411     b
1412
1413 /[a\-z]+/
1414     a-z
1415 \= Expect no match
1416     b
1417
1418 /[a-z]+/
1419     abcdxyz
1420
1421 /[\d-]+/
1422     12-34
1423 \= Expect no match
1424     aaa
1425
1426 /\x5c/
1427     \\
1428
1429 /\x20Z/
1430     the Zoo
1431 \= Expect no match
1432     Zulu
1433
1434 /(abc)\1/i
1435     abcabc
1436     ABCabc
1437     abcABC
1438
1439 /abc$/
1440     abc
1441     abc\n
1442 \= Expect no match
1443     abc\ndef
1444
1445 /(abc)\123/
1446     abc\x53
1447
1448 /(abc)\223/
1449     abc\x93
1450
1451 /(abc)\323/
1452     abc\xd3
1453
1454 /(abc)\100/
1455     abc\x40
1456     abc\100
1457
1458 /(abc)\1000/
1459     abc\x400
1460     abc\x40\x30
1461     abc\1000
1462     abc\100\x30
1463     abc\100\060
1464     abc\100\60
1465
1466 /^(A)(B)(C)(D)(E)(F)(G)(H)(I)\8\9$/
1467     ABCDEFGHIHI
1468
1469 /^[A\8B\9C]+$/
1470     A8B9C
1471 \= Expect no match
1472     A8B9C\x00
1473
1474 /(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)(l)\12\123/
1475     abcdefghijkllS
1476
1477 /(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)\12\123/
1478     abcdefghijk\12S
1479
1480 /a{0}bc/
1481     bc
1482
1483 /(a|(bc)){0,0}?xyz/
1484     xyz
1485
1486 /abc[\10]de/
1487     abc\010de
1488
1489 /abc[\1]de/
1490     abc\1de
1491
1492 /(abc)[\1]de/
1493     abc\1de
1494
1495 /(?s)a.b/
1496     a\nb
1497
1498 /^([^a])([^\b])([^c]*)([^d]{3,4})/
1499     baNOTccccd
1500     baNOTcccd
1501     baNOTccd
1502     bacccd
1503 \= Expect no match
1504     anything
1505     b\bc
1506     baccd
1507
1508 /[^a]/
1509     Abc
1510
1511 /[^a]/i
1512     Abc
1513
1514 /[^a]+/
1515     AAAaAbc
1516
1517 /[^a]+/i
1518     AAAaAbc
1519
1520 /[^a]+/
1521     bbb\nccc
1522
1523 /[^k]$/
1524     abc
1525 \= Expect no match
1526     abk
1527
1528 /[^k]{2,3}$/
1529     abc
1530     kbc
1531     kabc
1532 \= Expect no match
1533     abk
1534     akb
1535     akk
1536
1537 /^\d{8,}\@.+[^k]$/
1538     12345678\@a.b.c.d
1539     123456789\@x.y.z
1540 \= Expect no match
1541     12345678\@x.y.uk
1542     1234567\@a.b.c.d
1543
1544 /(a)\1{8,}/
1545     aaaaaaaaa
1546     aaaaaaaaaa
1547 \= Expect no match
1548     aaaaaaa
1549
1550 /[^a]/
1551     aaaabcd
1552     aaAabcd
1553
1554 /[^a]/i
1555     aaaabcd
1556     aaAabcd
1557
1558 /[^az]/
1559     aaaabcd
1560     aaAabcd
1561
1562 /[^az]/i
1563     aaaabcd
1564     aaAabcd
1565
1566 /\000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037\040\041\042\043\044\045\046\047\050\051\052\053\054\055\056\057\060\061\062\063\064\065\066\067\070\071\072\073\074\075\076\077\100\101\102\103\104\105\106\107\110\111\112\113\114\115\116\117\120\121\122\123\124\125\126\127\130\131\132\133\134\135\136\137\140\141\142\143\144\145\146\147\150\151\152\153\154\155\156\157\160\161\162\163\164\165\166\167\170\171\172\173\174\175\176\177\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377/
1567  \000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037\040\041\042\043\044\045\046\047\050\051\052\053\054\055\056\057\060\061\062\063\064\065\066\067\070\071\072\073\074\075\076\077\100\101\102\103\104\105\106\107\110\111\112\113\114\115\116\117\120\121\122\123\124\125\126\127\130\131\132\133\134\135\136\137\140\141\142\143\144\145\146\147\150\151\152\153\154\155\156\157\160\161\162\163\164\165\166\167\170\171\172\173\174\175\176\177\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377
1568
1569 /P[^*]TAIRE[^*]{1,6}?LL/
1570     xxxxxxxxxxxPSTAIREISLLxxxxxxxxx
1571
1572 /P[^*]TAIRE[^*]{1,}?LL/
1573     xxxxxxxxxxxPSTAIREISLLxxxxxxxxx
1574
1575 /(\.\d\d[1-9]?)\d+/
1576     1.230003938
1577     1.875000282
1578     1.235
1579
1580 /(\.\d\d((?=0)|\d(?=\d)))/
1581     1.230003938
1582     1.875000282
1583 \= Expect no match
1584     1.235
1585
1586 /a(?)b/
1587     ab
1588
1589 /\b(foo)\s+(\w+)/i
1590     Food is on the foo table
1591
1592 /foo(.*)bar/
1593     The food is under the bar in the barn.
1594
1595 /foo(.*?)bar/
1596     The food is under the bar in the barn.
1597
1598 /(.*)(\d*)/
1599     I have 2 numbers: 53147
1600
1601 /(.*)(\d+)/
1602     I have 2 numbers: 53147
1603
1604 /(.*?)(\d*)/
1605     I have 2 numbers: 53147
1606
1607 /(.*?)(\d+)/
1608     I have 2 numbers: 53147
1609
1610 /(.*)(\d+)$/
1611     I have 2 numbers: 53147
1612
1613 /(.*?)(\d+)$/
1614     I have 2 numbers: 53147
1615
1616 /(.*)\b(\d+)$/
1617     I have 2 numbers: 53147
1618
1619 /(.*\D)(\d+)$/
1620     I have 2 numbers: 53147
1621
1622 /^\D*(?!123)/
1623     ABC123
1624
1625 /^(\D*)(?=\d)(?!123)/
1626     ABC445
1627 \= Expect no match
1628     ABC123
1629
1630 /^[W-]46]/
1631     W46]789
1632     -46]789
1633 \= Expect no match
1634     Wall
1635     Zebra
1636     42
1637     [abcd]
1638     ]abcd[
1639
1640 /^[W-\]46]/
1641     W46]789
1642     Wall
1643     Zebra
1644     Xylophone
1645     42
1646     [abcd]
1647     ]abcd[
1648     \\backslash
1649 \= Expect no match
1650     -46]789
1651     well
1652
1653 /\d\d\/\d\d\/\d\d\d\d/
1654     01/01/2000
1655
1656 /word (?:[a-zA-Z0-9]+ ){0,10}otherword/
1657     word cat dog elephant mussel cow horse canary baboon snake shark otherword
1658 \= Expect no match
1659     word cat dog elephant mussel cow horse canary baboon snake shark
1660
1661 /word (?:[a-zA-Z0-9]+ ){0,300}otherword/
1662 \= Expect no match
1663     word cat dog elephant mussel cow horse canary baboon snake shark the quick brown fox and the lazy dog and several other words getting close to thirty by now I hope
1664
1665 /^(a){0,0}/
1666     bcd
1667     abc
1668     aab
1669
1670 /^(a){0,1}/
1671     bcd
1672     abc
1673     aab
1674
1675 /^(a){0,2}/
1676     bcd
1677     abc
1678     aab
1679
1680 /^(a){0,3}/
1681     bcd
1682     abc
1683     aab
1684     aaa
1685
1686 /^(a){0,}/
1687     bcd
1688     abc
1689     aab
1690     aaa
1691     aaaaaaaa
1692
1693 /^(a){1,1}/
1694     abc
1695     aab
1696 \= Expect no match
1697     bcd
1698
1699 /^(a){1,2}/
1700     abc
1701     aab
1702 \= Expect no match
1703     bcd
1704
1705 /^(a){1,3}/
1706     abc
1707     aab
1708     aaa
1709 \= Expect no match
1710     bcd
1711
1712 /^(a){1,}/
1713     abc
1714     aab
1715     aaa
1716     aaaaaaaa
1717 \= Expect no match
1718     bcd
1719
1720 /.*\.gif/
1721     borfle\nbib.gif\nno
1722
1723 /.{0,}\.gif/
1724     borfle\nbib.gif\nno
1725
1726 /.*\.gif/m
1727     borfle\nbib.gif\nno
1728
1729 /.*\.gif/s
1730     borfle\nbib.gif\nno
1731
1732 /.*\.gif/ms
1733     borfle\nbib.gif\nno
1734
1735 /.*$/
1736     borfle\nbib.gif\nno
1737
1738 /.*$/m
1739     borfle\nbib.gif\nno
1740
1741 /.*$/s
1742     borfle\nbib.gif\nno
1743
1744 /.*$/ms
1745     borfle\nbib.gif\nno
1746
1747 /.*$/
1748     borfle\nbib.gif\nno\n
1749
1750 /.*$/m
1751     borfle\nbib.gif\nno\n
1752
1753 /.*$/s
1754     borfle\nbib.gif\nno\n
1755
1756 /.*$/ms
1757     borfle\nbib.gif\nno\n
1758
1759 /(.*X|^B)/
1760     abcde\n1234Xyz
1761     BarFoo
1762 \= Expect no match
1763     abcde\nBar
1764
1765 /(.*X|^B)/m
1766     abcde\n1234Xyz
1767     BarFoo
1768     abcde\nBar
1769
1770 /(.*X|^B)/s
1771     abcde\n1234Xyz
1772     BarFoo
1773 \= Expect no match
1774     abcde\nBar
1775
1776 /(.*X|^B)/ms
1777     abcde\n1234Xyz
1778     BarFoo
1779     abcde\nBar
1780
1781 /(?s)(.*X|^B)/
1782     abcde\n1234Xyz
1783     BarFoo
1784 \= Expect no match
1785     abcde\nBar
1786
1787 /(?s:.*X|^B)/
1788     abcde\n1234Xyz
1789     BarFoo
1790 \= Expect no match
1791     abcde\nBar
1792
1793 /^.*B/
1794 \= Expect no match
1795     abc\nB
1796
1797 /(?s)^.*B/
1798     abc\nB
1799
1800 /(?m)^.*B/
1801     abc\nB
1802
1803 /(?ms)^.*B/
1804     abc\nB
1805
1806 /(?ms)^B/
1807     abc\nB
1808
1809 /(?s)B$/
1810     B\n
1811
1812 /^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]/
1813     123456654321
1814
1815 /^\d\d\d\d\d\d\d\d\d\d\d\d/
1816     123456654321
1817
1818 /^[\d][\d][\d][\d][\d][\d][\d][\d][\d][\d][\d][\d]/
1819     123456654321
1820
1821 /^[abc]{12}/
1822     abcabcabcabc
1823
1824 /^[a-c]{12}/
1825     abcabcabcabc
1826
1827 /^(a|b|c){12}/
1828     abcabcabcabc
1829
1830 /^[abcdefghijklmnopqrstuvwxy0123456789]/
1831     n
1832 \= Expect no match
1833     z
1834
1835 /abcde{0,0}/
1836     abcd
1837 \= Expect no match
1838     abce
1839
1840 /ab[cd]{0,0}e/
1841     abe
1842 \= Expect no match
1843     abcde
1844
1845 /ab(c){0,0}d/
1846     abd
1847 \= Expect no match
1848     abcd
1849
1850 /a(b*)/
1851     a
1852     ab
1853     abbbb
1854 \= Expect no match
1855     bbbbb
1856
1857 /ab\d{0}e/
1858     abe
1859 \= Expect no match
1860     ab1e
1861
1862 /"([^\\"]+|\\.)*"/
1863     the \"quick\" brown fox
1864     \"the \\\"quick\\\" brown fox\"
1865
1866 /.*?/g,aftertext
1867     abc
1868
1869 /\b/g,aftertext
1870     abc
1871
1872 /\b/g,aftertext
1873     abc
1874
1875 //g
1876     abc
1877
1878 /<tr([\w\W\s\d][^<>]{0,})><TD([\w\W\s\d][^<>]{0,})>([\d]{0,}\.)(.*)((<BR>([\w\W\s\d][^<>]{0,})|[\s]{0,}))<\/a><\/TD><TD([\w\W\s\d][^<>]{0,})>([\w\W\s\d][^<>]{0,})<\/TD><TD([\w\W\s\d][^<>]{0,})>([\w\W\s\d][^<>]{0,})<\/TD><\/TR>/is
1879   <TR BGCOLOR='#DBE9E9'><TD align=left valign=top>43.<a href='joblist.cfm?JobID=94 6735&Keyword='>Word Processor<BR>(N-1286)</a></TD><TD align=left valign=top>Lega lstaff.com</TD><TD align=left valign=top>CA - Statewide</TD></TR>
1880
1881 /a[^a]b/
1882     acb
1883     a\nb
1884
1885 /a.b/
1886     acb
1887 \= Expect no match
1888     a\nb
1889
1890 /a[^a]b/s
1891     acb
1892     a\nb
1893
1894 /a.b/s
1895     acb
1896     a\nb
1897
1898 /^(b+?|a){1,2}?c/
1899     bac
1900     bbac
1901     bbbac
1902     bbbbac
1903     bbbbbac
1904
1905 /^(b+|a){1,2}?c/
1906     bac
1907     bbac
1908     bbbac
1909     bbbbac
1910     bbbbbac
1911
1912 /(?!\A)x/m
1913     a\bx\n
1914     a\nx\n
1915 \= Expect no match
1916     x\nb\n
1917
1918 /(A|B)*?CD/
1919     CD
1920
1921 /(A|B)*CD/
1922     CD
1923
1924 /(AB)*?\1/
1925     ABABAB
1926
1927 /(AB)*\1/
1928     ABABAB
1929
1930 /(?<!bar)foo/
1931     foo
1932     catfood
1933     arfootle
1934     rfoosh
1935 \= Expect no match
1936     barfoo
1937     towbarfoo
1938
1939 /\w{3}(?<!bar)foo/
1940     catfood
1941 \= Expect no match
1942     foo
1943     barfoo
1944     towbarfoo
1945
1946 /(?<=(foo)a)bar/
1947     fooabar
1948 \= Expect no match
1949     bar
1950     foobbar
1951
1952 /\Aabc\z/m
1953     abc
1954 \= Expect no match
1955     abc\n
1956     qqq\nabc
1957     abc\nzzz
1958     qqq\nabc\nzzz
1959
1960 "(?>.*/)foo"
1961     /this/is/a/very/long/line/in/deed/with/very/many/slashes/in/and/foo
1962 \= Expect no match
1963     /this/is/a/very/long/line/in/deed/with/very/many/slashes/in/it/you/see/
1964
1965 /(?>(\.\d\d[1-9]?))\d+/
1966     1.230003938
1967     1.875000282
1968 \= Expect no match
1969     1.235
1970
1971 /^((?>\w+)|(?>\s+))*$/
1972     now is the time for all good men to come to the aid of the party
1973 \= Expect no match
1974     this is not a line with only words and spaces!
1975
1976 /(\d+)(\w)/
1977     12345a
1978     12345+
1979
1980 /((?>\d+))(\w)/
1981     12345a
1982 \= Expect no match
1983     12345+
1984
1985 /(?>a+)b/
1986     aaab
1987
1988 /((?>a+)b)/
1989     aaab
1990
1991 /(?>(a+))b/
1992     aaab
1993
1994 /(?>b)+/
1995     aaabbbccc
1996
1997 /(?>a+|b+|c+)*c/
1998     aaabbbbccccd
1999
2000 /((?>[^()]+)|\([^()]*\))+/
2001     ((abc(ade)ufh()()x
2002
2003 /\(((?>[^()]+)|\([^()]+\))+\)/
2004     (abc)
2005     (abc(def)xyz)
2006 \= Expect no match
2007     ((()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
2008
2009 /a(?-i)b/i
2010     ab
2011     Ab
2012 \= Expect no match
2013     aB
2014     AB
2015
2016 /(a (?x)b c)d e/
2017     a bcd e
2018 \= Expect no match
2019     a b cd e
2020     abcd e
2021     a bcde
2022
2023 /(a b(?x)c d (?-x)e f)/
2024     a bcde f
2025 \= Expect no match
2026     abcdef
2027
2028 /(a(?i)b)c/
2029     abc
2030     aBc
2031 \= Expect no match
2032     abC
2033     aBC
2034     Abc
2035     ABc
2036     ABC
2037     AbC
2038
2039 /a(?i:b)c/
2040     abc
2041     aBc
2042 \= Expect no match
2043     ABC
2044     abC
2045     aBC
2046
2047 /a(?i:b)*c/
2048     aBc
2049     aBBc
2050 \= Expect no match
2051     aBC
2052     aBBC
2053
2054 /a(?=b(?i)c)\w\wd/
2055     abcd
2056     abCd
2057 \= Expect no match
2058     aBCd
2059     abcD
2060
2061 /(?s-i:more.*than).*million/i
2062     more than million
2063     more than MILLION
2064     more \n than Million
2065 \= Expect no match
2066     MORE THAN MILLION
2067     more \n than \n million
2068
2069 /(?:(?s-i)more.*than).*million/i
2070     more than million
2071     more than MILLION
2072     more \n than Million
2073 \= Expect no match
2074     MORE THAN MILLION
2075     more \n than \n million
2076
2077 /(?>a(?i)b+)+c/
2078     abc
2079     aBbc
2080     aBBc
2081 \= Expect no match
2082     Abc
2083     abAb
2084     abbC
2085
2086 /(?=a(?i)b)\w\wc/
2087     abc
2088     aBc
2089 \= Expect no match
2090     Ab
2091     abC
2092     aBC
2093
2094 /(?<=a(?i)b)(\w\w)c/
2095     abxxc
2096     aBxxc
2097 \= Expect no match
2098     Abxxc
2099     ABxxc
2100     abxxC
2101
2102 /(?:(a)|b)(?(1)A|B)/
2103     aA
2104     bB
2105 \= Expect no match
2106     aB
2107     bA
2108
2109 /^(a)?(?(1)a|b)+$/
2110     aa
2111     b
2112     bb
2113 \= Expect no match
2114     ab
2115
2116 # Perl gets this next one wrong if the pattern ends with $; in that case it
2117 # fails to match "12".
2118
2119 /^(?(?=abc)\w{3}:|\d\d)/
2120     abc:
2121     12
2122     123
2123 \= Expect no match
2124     xyz
2125
2126 /^(?(?!abc)\d\d|\w{3}:)$/
2127     abc:
2128     12
2129 \= Expect no match
2130     123
2131     xyz
2132
2133 /(?(?<=foo)bar|cat)/
2134     foobar
2135     cat
2136     fcat
2137     focat
2138 \= Expect no match
2139     foocat
2140
2141 /(?(?<!foo)cat|bar)/
2142     foobar
2143     cat
2144     fcat
2145     focat
2146 \= Expect no match
2147     foocat
2148
2149 /( \( )? [^()]+ (?(1) \) |) /x
2150     abcd
2151     (abcd)
2152     the quick (abcd) fox
2153     (abcd
2154
2155 /( \( )? [^()]+ (?(1) \) ) /x
2156     abcd
2157     (abcd)
2158     the quick (abcd) fox
2159     (abcd
2160
2161 /^(?(2)a|(1)(2))+$/
2162     12
2163     12a
2164     12aa
2165 \= Expect no match
2166     1234
2167
2168 /((?i)blah)\s+\1/
2169     blah blah
2170     BLAH BLAH
2171     Blah Blah
2172     blaH blaH
2173 \= Expect no match
2174     blah BLAH
2175     Blah blah
2176     blaH blah
2177
2178 /((?i)blah)\s+(?i:\1)/
2179     blah blah
2180     BLAH BLAH
2181     Blah Blah
2182     blaH blaH
2183     blah BLAH
2184     Blah blah
2185     blaH blah
2186
2187 /((?i)blah)\s+(?m)A(?i:\1)/
2188     blah ABLAH
2189 \= Expect no match
2190     blah aBLAH
2191
2192 /(?>a*)*/
2193     a
2194     aa
2195     aaaa
2196
2197 /(abc|)+/
2198     abc
2199     abcabc
2200     abcabcabc
2201     xyz
2202
2203 /([a]*)*/
2204     a
2205     aaaaa
2206
2207 /([ab]*)*/
2208     a
2209     b
2210     ababab
2211     aaaabcde
2212     bbbb
2213
2214 /([^a]*)*/
2215     b
2216     bbbb
2217     aaa
2218
2219 /([^ab]*)*/
2220     cccc
2221     abab
2222
2223 /([a]*?)*/
2224     a
2225     aaaa
2226
2227 /([ab]*?)*/
2228     a
2229     b
2230     abab
2231     baba
2232
2233 /([^a]*?)*/
2234     b
2235     bbbb
2236     aaa
2237
2238 /([^ab]*?)*/
2239     c
2240     cccc
2241     baba
2242
2243 /(?>a*)*/
2244     a
2245     aaabcde
2246
2247 /((?>a*))*/
2248     aaaaa
2249     aabbaa
2250
2251 /((?>a*?))*/
2252     aaaaa
2253     aabbaa
2254
2255 /(?(?=[^a-z]+[a-z])  \d{2}-[a-z]{3}-\d{2}  |  \d{2}-\d{2}-\d{2} ) /x
2256     12-sep-98
2257     12-09-98
2258 \= Expect no match
2259     sep-12-98
2260
2261 /(?<=(foo))bar\1/
2262     foobarfoo
2263     foobarfootling
2264 \= Expect no match
2265     foobar
2266     barfoo
2267
2268 /(?i:saturday|sunday)/
2269     saturday
2270     sunday
2271     Saturday
2272     Sunday
2273     SATURDAY
2274     SUNDAY
2275     SunDay
2276
2277 /(a(?i)bc|BB)x/
2278     abcx
2279     aBCx
2280     bbx
2281     BBx
2282 \= Expect no match
2283     abcX
2284     aBCX
2285     bbX
2286     BBX
2287
2288 /^([ab](?i)[cd]|[ef])/
2289     ac
2290     aC
2291     bD
2292     elephant
2293     Europe
2294     frog
2295     France
2296 \= Expect no match
2297     Africa
2298
2299 /^(ab|a(?i)[b-c](?m-i)d|x(?i)y|z)/
2300     ab
2301     aBd
2302     xy
2303     xY
2304     zebra
2305     Zambesi
2306 \= Expect no match
2307     aCD
2308     XY
2309
2310 /(?<=foo\n)^bar/m
2311     foo\nbar
2312 \= Expect no match
2313     bar
2314     baz\nbar
2315
2316 /(?<=(?<!foo)bar)baz/
2317     barbaz
2318     barbarbaz
2319     koobarbaz
2320 \= Expect no match
2321     baz
2322     foobarbaz
2323
2324 # The cases of aaaa and aaaaaa are missed out below because Perl does things
2325 # differently. We know that odd, and maybe incorrect, things happen with
2326 # recursive references in Perl, as far as 5.11.3 - see some stuff in test #2.
2327
2328 /^(a\1?){4}$/
2329     aaaaa
2330     aaaaaaa
2331     aaaaaaaaaa
2332 \= Expect no match
2333     a
2334     aa
2335     aaa
2336     aaaaaaaa
2337     aaaaaaaaa
2338     aaaaaaaaaaa
2339     aaaaaaaaaaaa
2340     aaaaaaaaaaaaa
2341     aaaaaaaaaaaaaa
2342     aaaaaaaaaaaaaaa
2343     aaaaaaaaaaaaaaaa
2344
2345 /^(a\1?)(a\1?)(a\2?)(a\3?)$/
2346     aaaa
2347     aaaaa
2348     aaaaaa
2349     aaaaaaa
2350     aaaaaaaaaa
2351 \= Expect no match
2352     a
2353     aa
2354     aaa
2355     aaaaaaaa
2356     aaaaaaaaa
2357     aaaaaaaaaaa
2358     aaaaaaaaaaaa
2359     aaaaaaaaaaaaa
2360     aaaaaaaaaaaaaa
2361     aaaaaaaaaaaaaaa
2362     aaaaaaaaaaaaaaaa
2363
2364 # The following tests are taken from the Perl 5.005 test suite; some of them
2365 # are compatible with 5.004, but I'd rather not have to sort them out.
2366
2367 /abc/
2368     abc
2369     xabcy
2370     ababc
2371 \= Expect no match
2372     xbc
2373     axc
2374     abx
2375
2376 /ab*c/
2377     abc
2378
2379 /ab*bc/
2380     abc
2381     abbc
2382     abbbbc
2383
2384 /.{1}/
2385     abbbbc
2386
2387 /.{3,4}/
2388     abbbbc
2389
2390 /ab{0,}bc/
2391     abbbbc
2392
2393 /ab+bc/
2394     abbc
2395 \= Expect no match
2396     abc
2397     abq
2398
2399 /ab{1,}bc/
2400
2401 /ab+bc/
2402     abbbbc
2403
2404 /ab{1,}bc/
2405     abbbbc
2406
2407 /ab{1,3}bc/
2408     abbbbc
2409
2410 /ab{3,4}bc/
2411     abbbbc
2412
2413 /ab{4,5}bc/
2414 \= Expect no match
2415     abq
2416     abbbbc
2417
2418 /ab?bc/
2419     abbc
2420     abc
2421
2422 /ab{0,1}bc/
2423     abc
2424
2425 /ab?bc/
2426
2427 /ab?c/
2428     abc
2429
2430 /ab{0,1}c/
2431     abc
2432
2433 /^abc$/
2434     abc
2435 \= Expect no match
2436     abbbbc
2437     abcc
2438
2439 /^abc/
2440     abcc
2441
2442 /^abc$/
2443
2444 /abc$/
2445     aabc
2446 \= Expect no match
2447     aabcd
2448
2449 /^/
2450     abc
2451
2452 /$/
2453     abc
2454
2455 /a.c/
2456     abc
2457     axc
2458
2459 /a.*c/
2460     axyzc
2461
2462 /a[bc]d/
2463     abd
2464 \= Expect no match
2465     axyzd
2466     abc
2467
2468 /a[b-d]e/
2469     ace
2470
2471 /a[b-d]/
2472     aac
2473
2474 /a[-b]/
2475     a-
2476
2477 /a[b-]/
2478     a-
2479
2480 /a]/
2481     a]
2482
2483 /a[]]b/
2484     a]b
2485
2486 /a[^bc]d/
2487     aed
2488 \= Expect no match
2489     abd
2490     abd
2491
2492 /a[^-b]c/
2493     adc
2494
2495 /a[^]b]c/
2496     adc
2497     a-c
2498 \= Expect no match
2499     a]c
2500
2501 /\ba\b/
2502     a-
2503     -a
2504     -a-
2505
2506 /\by\b/
2507 \= Expect no match
2508     xy
2509     yz
2510     xyz
2511
2512 /\Ba\B/
2513 \= Expect no match
2514     a-
2515     -a
2516     -a-
2517
2518 /\By\b/
2519     xy
2520
2521 /\by\B/
2522     yz
2523
2524 /\By\B/
2525     xyz
2526
2527 /\w/
2528     a
2529
2530 /\W/
2531     -
2532 \= Expect no match
2533     a
2534
2535 /a\sb/
2536     a b
2537
2538 /a\Sb/
2539     a-b
2540 \= Expect no match
2541     a b
2542
2543 /\d/
2544     1
2545
2546 /\D/
2547     -
2548 \= Expect no match
2549     1
2550
2551 /[\w]/
2552     a
2553
2554 /[\W]/
2555     -
2556 \= Expect no match
2557     a
2558
2559 /a[\s]b/
2560     a b
2561
2562 /a[\S]b/
2563     a-b
2564 \= Expect no match
2565     a b
2566
2567 /[\d]/
2568     1
2569
2570 /[\D]/
2571     -
2572 \= Expect no match
2573     1
2574
2575 /ab|cd/
2576     abc
2577     abcd
2578
2579 /()ef/
2580     def
2581
2582 /$b/
2583
2584 /a\(b/
2585     a(b
2586
2587 /a\(*b/
2588     ab
2589     a((b
2590
2591 /a\\b/
2592     a\\b
2593
2594 /((a))/
2595     abc
2596
2597 /(a)b(c)/
2598     abc
2599
2600 /a+b+c/
2601     aabbabc
2602
2603 /a{1,}b{1,}c/
2604     aabbabc
2605
2606 /a.+?c/
2607     abcabc
2608
2609 /(a+|b)*/
2610     ab
2611
2612 /(a+|b){0,}/
2613     ab
2614
2615 /(a+|b)+/
2616     ab
2617
2618 /(a+|b){1,}/
2619     ab
2620
2621 /(a+|b)?/
2622     ab
2623
2624 /(a+|b){0,1}/
2625     ab
2626
2627 /[^ab]*/
2628     cde
2629
2630 /abc/
2631 \= Expect no match
2632     b
2633
2634 /a*/
2635     \
2636
2637 /([abc])*d/
2638     abbbcd
2639
2640 /([abc])*bcd/
2641     abcd
2642
2643 /a|b|c|d|e/
2644     e
2645
2646 /(a|b|c|d|e)f/
2647     ef
2648
2649 /abcd*efg/
2650     abcdefg
2651
2652 /ab*/
2653     xabyabbbz
2654     xayabbbz
2655
2656 /(ab|cd)e/
2657     abcde
2658
2659 /[abhgefdc]ij/
2660     hij
2661
2662 /^(ab|cd)e/
2663
2664 /(abc|)ef/
2665     abcdef
2666
2667 /(a|b)c*d/
2668     abcd
2669
2670 /(ab|ab*)bc/
2671     abc
2672
2673 /a([bc]*)c*/
2674     abc
2675
2676 /a([bc]*)(c*d)/
2677     abcd
2678
2679 /a([bc]+)(c*d)/
2680     abcd
2681
2682 /a([bc]*)(c+d)/
2683     abcd
2684
2685 /a[bcd]*dcdcde/
2686     adcdcde
2687
2688 /a[bcd]+dcdcde/
2689 \= Expect no match
2690     abcde
2691     adcdcde
2692
2693 /(ab|a)b*c/
2694     abc
2695
2696 /((a)(b)c)(d)/
2697     abcd
2698
2699 /[a-zA-Z_][a-zA-Z0-9_]*/
2700     alpha
2701
2702 /^a(bc+|b[eh])g|.h$/
2703     abh
2704
2705 /(bc+d$|ef*g.|h?i(j|k))/
2706     effgz
2707     ij
2708     reffgz
2709 \= Expect no match
2710     effg
2711     bcdd
2712
2713 /((((((((((a))))))))))/
2714     a
2715
2716 /((((((((((a))))))))))\10/
2717     aa
2718
2719 /(((((((((a)))))))))/
2720     a
2721
2722 /multiple words of text/
2723 \= Expect no match
2724     aa
2725     uh-uh
2726
2727 /multiple words/
2728     multiple words, yeah
2729
2730 /(.*)c(.*)/
2731     abcde
2732
2733 /\((.*), (.*)\)/
2734     (a, b)
2735
2736 /[k]/
2737
2738 /abcd/
2739     abcd
2740
2741 /a(bc)d/
2742     abcd
2743
2744 /a[-]?c/
2745     ac
2746
2747 /(abc)\1/
2748     abcabc
2749
2750 /([a-c]*)\1/
2751     abcabc
2752
2753 /(a)|\1/
2754     a
2755     ab
2756 \= Expect no match
2757     x
2758
2759 /(([a-c])b*?\2)*/
2760     ababbbcbc
2761
2762 /(([a-c])b*?\2){3}/
2763     ababbbcbc
2764
2765 /((\3|b)\2(a)x)+/
2766     aaaxabaxbaaxbbax
2767
2768 /((\3|b)\2(a)){2,}/
2769     bbaababbabaaaaabbaaaabba
2770
2771 /abc/i
2772     ABC
2773     XABCY
2774     ABABC
2775 \= Expect no match
2776     aaxabxbaxbbx
2777     XBC
2778     AXC
2779     ABX
2780
2781 /ab*c/i
2782     ABC
2783
2784 /ab*bc/i
2785     ABC
2786     ABBC
2787
2788 /ab*?bc/i
2789     ABBBBC
2790
2791 /ab{0,}?bc/i
2792     ABBBBC
2793
2794 /ab+?bc/i
2795     ABBC
2796
2797 /ab+bc/i
2798 \= Expect no match
2799     ABC
2800     ABQ
2801
2802 /ab{1,}bc/i
2803
2804 /ab+bc/i
2805     ABBBBC
2806
2807 /ab{1,}?bc/i
2808     ABBBBC
2809
2810 /ab{1,3}?bc/i
2811     ABBBBC
2812
2813 /ab{3,4}?bc/i
2814     ABBBBC
2815
2816 /ab{4,5}?bc/i
2817 \= Expect no match
2818     ABQ
2819     ABBBBC
2820
2821 /ab??bc/i
2822     ABBC
2823     ABC
2824
2825 /ab{0,1}?bc/i
2826     ABC
2827
2828 /ab??bc/i
2829
2830 /ab??c/i
2831     ABC
2832
2833 /ab{0,1}?c/i
2834     ABC
2835
2836 /^abc$/i
2837     ABC
2838 \= Expect no match
2839     ABBBBC
2840     ABCC
2841
2842 /^abc/i
2843     ABCC
2844
2845 /^abc$/i
2846
2847 /abc$/i
2848     AABC
2849
2850 /^/i
2851     ABC
2852
2853 /$/i
2854     ABC
2855
2856 /a.c/i
2857     ABC
2858     AXC
2859
2860 /a.*?c/i
2861     AXYZC
2862
2863 /a.*c/i
2864     AABC
2865 \= Expect no match
2866     AXYZD
2867
2868 /a[bc]d/i
2869     ABD
2870
2871 /a[b-d]e/i
2872     ACE
2873 \= Expect no match
2874     ABC
2875     ABD
2876
2877 /a[b-d]/i
2878     AAC
2879
2880 /a[-b]/i
2881     A-
2882
2883 /a[b-]/i
2884     A-
2885
2886 /a]/i
2887     A]
2888
2889 /a[]]b/i
2890     A]B
2891
2892 /a[^bc]d/i
2893     AED
2894
2895 /a[^-b]c/i
2896     ADC
2897 \= Expect no match
2898     ABD
2899     A-C
2900
2901 /a[^]b]c/i
2902     ADC
2903
2904 /ab|cd/i
2905     ABC
2906     ABCD
2907
2908 /()ef/i
2909     DEF
2910
2911 /$b/i
2912 \= Expect no match
2913     A]C
2914     B
2915
2916 /a\(b/i
2917     A(B
2918
2919 /a\(*b/i
2920     AB
2921     A((B
2922
2923 /a\\b/i
2924     A\\b
2925     a\\B
2926
2927 /((a))/i
2928     ABC
2929
2930 /(a)b(c)/i
2931     ABC
2932
2933 /a+b+c/i
2934     AABBABC
2935
2936 /a{1,}b{1,}c/i
2937     AABBABC
2938
2939 /a.+?c/i
2940     ABCABC
2941
2942 /a.*?c/i
2943     ABCABC
2944
2945 /a.{0,5}?c/i
2946     ABCABC
2947
2948 /(a+|b)*/i
2949     AB
2950
2951 /(a+|b){0,}/i
2952     AB
2953
2954 /(a+|b)+/i
2955     AB
2956
2957 /(a+|b){1,}/i
2958     AB
2959
2960 /(a+|b)?/i
2961     AB
2962
2963 /(a+|b){0,1}/i
2964     AB
2965
2966 /(a+|b){0,1}?/i
2967     AB
2968
2969 /[^ab]*/i
2970     CDE
2971
2972 /([abc])*d/i
2973     ABBBCD
2974
2975 /([abc])*bcd/i
2976     ABCD
2977
2978 /a|b|c|d|e/i
2979     E
2980
2981 /(a|b|c|d|e)f/i
2982     EF
2983
2984 /abcd*efg/i
2985     ABCDEFG
2986
2987 /ab*/i
2988     XABYABBBZ
2989     XAYABBBZ
2990
2991 /(ab|cd)e/i
2992     ABCDE
2993
2994 /[abhgefdc]ij/i
2995     HIJ
2996
2997 /^(ab|cd)e/i
2998 \= Expect no match
2999     ABCDE
3000
3001 /(abc|)ef/i
3002     ABCDEF
3003
3004 /(a|b)c*d/i
3005     ABCD
3006
3007 /(ab|ab*)bc/i
3008     ABC
3009
3010 /a([bc]*)c*/i
3011     ABC
3012
3013 /a([bc]*)(c*d)/i
3014     ABCD
3015
3016 /a([bc]+)(c*d)/i
3017     ABCD
3018
3019 /a([bc]*)(c+d)/i
3020     ABCD
3021
3022 /a[bcd]*dcdcde/i
3023     ADCDCDE
3024
3025 /a[bcd]+dcdcde/i
3026
3027 /(ab|a)b*c/i
3028     ABC
3029
3030 /((a)(b)c)(d)/i
3031     ABCD
3032
3033 /[a-zA-Z_][a-zA-Z0-9_]*/i
3034     ALPHA
3035
3036 /^a(bc+|b[eh])g|.h$/i
3037     ABH
3038
3039 /(bc+d$|ef*g.|h?i(j|k))/i
3040     EFFGZ
3041     IJ
3042     REFFGZ
3043 \= Expect no match
3044     ADCDCDE
3045     EFFG
3046     BCDD
3047
3048 /((((((((((a))))))))))/i
3049     A
3050
3051 /((((((((((a))))))))))\10/i
3052     AA
3053
3054 /(((((((((a)))))))))/i
3055     A
3056
3057 /(?:(?:(?:(?:(?:(?:(?:(?:(?:(a))))))))))/i
3058     A
3059
3060 /(?:(?:(?:(?:(?:(?:(?:(?:(?:(a|b|c))))))))))/i
3061     C
3062
3063 /multiple words of text/i
3064 \= Expect no match
3065     AA
3066     UH-UH
3067
3068 /multiple words/i
3069     MULTIPLE WORDS, YEAH
3070
3071 /(.*)c(.*)/i
3072     ABCDE
3073
3074 /\((.*), (.*)\)/i
3075     (A, B)
3076
3077 /[k]/i
3078
3079 /abcd/i
3080     ABCD
3081
3082 /a(bc)d/i
3083     ABCD
3084
3085 /a[-]?c/i
3086     AC
3087
3088 /(abc)\1/i
3089     ABCABC
3090
3091 /([a-c]*)\1/i
3092     ABCABC
3093
3094 /a(?!b)./
3095     abad
3096
3097 /a(?=d)./
3098     abad
3099
3100 /a(?=c|d)./
3101     abad
3102
3103 /a(?:b|c|d)(.)/
3104     ace
3105
3106 /a(?:b|c|d)*(.)/
3107     ace
3108
3109 /a(?:b|c|d)+?(.)/
3110     ace
3111     acdbcdbe
3112
3113 /a(?:b|c|d)+(.)/
3114     acdbcdbe
3115
3116 /a(?:b|c|d){2}(.)/
3117     acdbcdbe
3118
3119 /a(?:b|c|d){4,5}(.)/
3120     acdbcdbe
3121
3122 /a(?:b|c|d){4,5}?(.)/
3123     acdbcdbe
3124
3125 /((foo)|(bar))*/
3126     foobar
3127
3128 /a(?:b|c|d){6,7}(.)/
3129     acdbcdbe
3130
3131 /a(?:b|c|d){6,7}?(.)/
3132     acdbcdbe
3133
3134 /a(?:b|c|d){5,6}(.)/
3135     acdbcdbe
3136
3137 /a(?:b|c|d){5,6}?(.)/
3138     acdbcdbe
3139
3140 /a(?:b|c|d){5,7}(.)/
3141     acdbcdbe
3142
3143 /a(?:b|c|d){5,7}?(.)/
3144     acdbcdbe
3145
3146 /a(?:b|(c|e){1,2}?|d)+?(.)/
3147     ace
3148
3149 /^(.+)?B/
3150     AB
3151
3152 /^([^a-z])|(\^)$/
3153     .
3154
3155 /^[<>]&/
3156     <&OUT
3157
3158 /^(a\1?){4}$/
3159     aaaaaaaaaa
3160 \= Expect no match
3161     AB
3162     aaaaaaaaa
3163     aaaaaaaaaaa
3164
3165 /^(a(?(1)\1)){4}$/
3166     aaaaaaaaaa
3167 \= Expect no match
3168     aaaaaaaaa
3169     aaaaaaaaaaa
3170
3171 /(?:(f)(o)(o)|(b)(a)(r))*/
3172     foobar
3173
3174 /(?<=a)b/
3175     ab
3176 \= Expect no match
3177     cb
3178     b
3179
3180 /(?<!c)b/
3181     ab
3182     b
3183     b
3184
3185 /(?:..)*a/
3186     aba
3187
3188 /(?:..)*?a/
3189     aba
3190
3191 /^(?:b|a(?=(.)))*\1/
3192     abc
3193
3194 /^(){3,5}/
3195     abc
3196
3197 /^(a+)*ax/
3198     aax
3199
3200 /^((a|b)+)*ax/
3201     aax
3202
3203 /^((a|bc)+)*ax/
3204     aax
3205
3206 /(a|x)*ab/
3207     cab
3208
3209 /(a)*ab/
3210     cab
3211
3212 /(?:(?i)a)b/
3213     ab
3214
3215 /((?i)a)b/
3216     ab
3217
3218 /(?:(?i)a)b/
3219     Ab
3220
3221 /((?i)a)b/
3222     Ab
3223
3224 /(?:(?i)a)b/
3225 \= Expect no match
3226     cb
3227     aB
3228
3229 /((?i)a)b/
3230
3231 /(?i:a)b/
3232     ab
3233
3234 /((?i:a))b/
3235     ab
3236
3237 /(?i:a)b/
3238     Ab
3239
3240 /((?i:a))b/
3241     Ab
3242
3243 /(?i:a)b/
3244 \= Expect no match
3245     aB
3246     aB
3247
3248 /((?i:a))b/
3249
3250 /(?:(?-i)a)b/i
3251     ab
3252
3253 /((?-i)a)b/i
3254     ab
3255
3256 /(?:(?-i)a)b/i
3257     aB
3258
3259 /((?-i)a)b/i
3260     aB
3261
3262 /(?:(?-i)a)b/i
3263     aB
3264 \= Expect no match
3265     Ab
3266     AB
3267
3268 /(?-i:a)b/i
3269     ab
3270
3271 /((?-i:a))b/i
3272     ab
3273
3274 /(?-i:a)b/i
3275     aB
3276
3277 /((?-i:a))b/i
3278     aB
3279
3280 /(?-i:a)b/i
3281 \= Expect no match
3282     AB
3283     Ab
3284
3285 /((?-i:a))b/i
3286
3287 /(?-i:a)b/i
3288     aB
3289
3290 /((?-i:a))b/i
3291     aB
3292
3293 /(?-i:a)b/i
3294 \= Expect no match
3295     Ab
3296     AB
3297
3298 /((?-i:a))b/i
3299
3300 /((?-i:a.))b/i
3301 \= Expect no match
3302     AB
3303     a\nB
3304
3305 /((?s-i:a.))b/i
3306     a\nB
3307
3308 /(?:c|d)(?:)(?:a(?:)(?:b)(?:b(?:))(?:b(?:)(?:b)))/
3309     cabbbb
3310
3311 /(?:c|d)(?:)(?:aaaaaaaa(?:)(?:bbbbbbbb)(?:bbbbbbbb(?:))(?:bbbbbbbb(?:)(?:bbbbbbbb)))/
3312     caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
3313
3314 /(ab)\d\1/i
3315     Ab4ab
3316     ab4Ab
3317
3318 /foo\w*\d{4}baz/
3319     foobar1234baz
3320
3321 /x(~~)*(?:(?:F)?)?/
3322     x~~
3323
3324 /^a(?#xxx){3}c/
3325     aaac
3326
3327 /^a (?#xxx) (?#yyy) {3}c/x
3328     aaac
3329
3330 /(?<![cd])b/
3331 \= Expect no match
3332     B\nB
3333     dbcb
3334
3335 /(?<![cd])[ab]/
3336     dbaacb
3337
3338 /(?<!(c|d))b/
3339
3340 /(?<!(c|d))[ab]/
3341     dbaacb
3342
3343 /(?<!cd)[ab]/
3344     cdaccb
3345
3346 /^(?:a?b?)*$/
3347     \
3348     a
3349     ab
3350     aaa
3351 \= Expect no match
3352     dbcb
3353     a--
3354     aa--
3355
3356 /((?s)^a(.))((?m)^b$)/
3357     a\nb\nc\n
3358
3359 /((?m)^b$)/
3360     a\nb\nc\n
3361
3362 /(?m)^b/
3363     a\nb\n
3364
3365 /(?m)^(b)/
3366     a\nb\n
3367
3368 /((?m)^b)/
3369     a\nb\n
3370
3371 /\n((?m)^b)/
3372     a\nb\n
3373
3374 /((?s).)c(?!.)/
3375     a\nb\nc\n
3376     a\nb\nc\n
3377
3378 /((?s)b.)c(?!.)/
3379     a\nb\nc\n
3380     a\nb\nc\n
3381
3382 /^b/
3383
3384 /()^b/
3385 \= Expect no match
3386     a\nb\nc\n
3387     a\nb\nc\n
3388
3389 /((?m)^b)/
3390     a\nb\nc\n
3391
3392 /(x)?(?(1)a|b)/
3393 \= Expect no match
3394     a
3395     a
3396
3397 /(x)?(?(1)b|a)/
3398     a
3399
3400 /()?(?(1)b|a)/
3401     a
3402
3403 /()(?(1)b|a)/
3404
3405 /()?(?(1)a|b)/
3406     a
3407
3408 /^(\()?blah(?(1)(\)))$/
3409     (blah)
3410     blah
3411 \= Expect no match
3412     a
3413     blah)
3414     (blah
3415
3416 /^(\(+)?blah(?(1)(\)))$/
3417     (blah)
3418     blah
3419 \= Expect no match
3420     blah)
3421     (blah
3422
3423 /(?(?!a)a|b)/
3424
3425 /(?(?!a)b|a)/
3426     a
3427
3428 /(?(?=a)b|a)/
3429 \= Expect no match
3430     a
3431     a
3432
3433 /(?(?=a)a|b)/
3434     a
3435
3436 /(?=(a+?))(\1ab)/
3437     aaab
3438
3439 /^(?=(a+?))\1ab/
3440
3441 /(\w+:)+/
3442     one:
3443
3444 /$(?<=^(a))/
3445     a
3446
3447 /(?=(a+?))(\1ab)/
3448     aaab
3449
3450 /^(?=(a+?))\1ab/
3451 \= Expect no match
3452     aaab
3453     aaab
3454
3455 /([\w:]+::)?(\w+)$/
3456     abcd
3457     xy:z:::abcd
3458
3459 /^[^bcd]*(c+)/
3460     aexycd
3461
3462 /(a*)b+/
3463     caab
3464
3465 /([\w:]+::)?(\w+)$/
3466     abcd
3467     xy:z:::abcd
3468 \= Expect no match
3469     abcd:
3470     abcd:
3471
3472 /^[^bcd]*(c+)/
3473     aexycd
3474
3475 /(>a+)ab/
3476
3477 /(?>a+)b/
3478     aaab
3479
3480 /([[:]+)/
3481     a:[b]:
3482
3483 /([[=]+)/
3484     a=[b]=
3485
3486 /([[.]+)/
3487     a.[b].
3488
3489 /((?>a+)b)/
3490     aaab
3491
3492 /(?>(a+))b/
3493     aaab
3494
3495 /((?>[^()]+)|\([^()]*\))+/
3496     ((abc(ade)ufh()()x
3497
3498 /a\Z/
3499 \= Expect no match
3500     aaab
3501     a\nb\n
3502
3503 /b\Z/
3504     a\nb\n
3505
3506 /b\z/
3507
3508 /b\Z/
3509     a\nb
3510
3511 /b\z/
3512     a\nb
3513
3514 /^(?>(?(1)\.|())[^\W_](?>[a-z0-9-]*[^\W_])?)+$/
3515     a
3516     abc
3517     a-b
3518     0-9
3519     a.b
3520     5.6.7
3521     the.quick.brown.fox
3522     a100.b200.300c
3523     12-ab.1245
3524 \= Expect no match
3525     \
3526     .a
3527     -a
3528     a-
3529     a.
3530     a_b
3531     a.-
3532     a..
3533     ab..bc
3534     the.quick.brown.fox-
3535     the.quick.brown.fox.
3536     the.quick.brown.fox_
3537     the.quick.brown.fox+
3538
3539 /(?>.*)(?<=(abcd|wxyz))/
3540     alphabetabcd
3541     endingwxyz
3542 \= Expect no match
3543     a rather long string that doesn't end with one of them
3544
3545 /word (?>(?:(?!otherword)[a-zA-Z0-9]+ ){0,30})otherword/
3546     word cat dog elephant mussel cow horse canary baboon snake shark otherword
3547 \= Expect no match
3548     word cat dog elephant mussel cow horse canary baboon snake shark
3549
3550 /word (?>[a-zA-Z0-9]+ ){0,30}otherword/
3551 \= Expect no match
3552     word cat dog elephant mussel cow horse canary baboon snake shark the quick brown fox and the lazy dog and several other words getting close to thirty by now I hope
3553
3554 /(?<=\d{3}(?!999))foo/
3555     999foo
3556     123999foo
3557 \= Expect no match
3558     123abcfoo
3559
3560 /(?<=(?!...999)\d{3})foo/
3561     999foo
3562     123999foo
3563 \= Expect no match
3564     123abcfoo
3565
3566 /(?<=\d{3}(?!999)...)foo/
3567     123abcfoo
3568     123456foo
3569 \= Expect no match
3570     123999foo
3571
3572 /(?<=\d{3}...)(?<!999)foo/
3573     123abcfoo
3574     123456foo
3575 \= Expect no match
3576     123999foo
3577
3578 /<a[\s]+href[\s]*=[\s]*          # find <a href=
3579  ([\"\'])?                       # find single or double quote
3580  (?(1) (.*?)\1 | ([^\s]+))       # if quote found, match up to next matching
3581                                  # quote, otherwise match up to next space
3582 /isx
3583     <a href=abcd xyz
3584     <a href=\"abcd xyz pqr\" cats
3585     <a href=\'abcd xyz pqr\' cats
3586
3587 /<a\s+href\s*=\s*                # find <a href=
3588  (["'])?                         # find single or double quote
3589  (?(1) (.*?)\1 | (\S+))          # if quote found, match up to next matching
3590                                  # quote, otherwise match up to next space
3591 /isx
3592     <a href=abcd xyz
3593     <a href=\"abcd xyz pqr\" cats
3594     <a href       =       \'abcd xyz pqr\' cats
3595
3596 /<a\s+href(?>\s*)=(?>\s*)        # find <a href=
3597  (["'])?                         # find single or double quote
3598  (?(1) (.*?)\1 | (\S+))          # if quote found, match up to next matching
3599                                  # quote, otherwise match up to next space
3600 /isx
3601     <a href=abcd xyz
3602     <a href=\"abcd xyz pqr\" cats
3603     <a href       =       \'abcd xyz pqr\' cats
3604
3605 /((Z)+|A)*/
3606     ZABCDEFG
3607
3608 /(Z()|A)*/
3609     ZABCDEFG
3610
3611 /(Z(())|A)*/
3612     ZABCDEFG
3613
3614 /((?>Z)+|A)*/
3615     ZABCDEFG
3616
3617 /((?>)+|A)*/
3618     ZABCDEFG
3619
3620 /a*/g
3621     abbab
3622
3623 /[[:space:]]+/
3624     > \x09\x0a\x0c\x0d\x0b<
3625
3626 /[[:blank:]]+/
3627     > \x09\x0a\x0c\x0d\x0b<
3628
3629 /[\s]+/
3630     > \x09\x0a\x0c\x0d\x0b<
3631
3632 /\s+/
3633     > \x09\x0a\x0c\x0d\x0b<
3634
3635 /a\vb/x
3636     ab
3637
3638 /(?!\A)x/m
3639     a\nxb\n
3640
3641 /(?!^)x/m
3642 \= Expect no match
3643     a\nxb\n
3644
3645 /abc\Qabc\Eabc/
3646     abcabcabc
3647
3648 /abc\Q(*+|\Eabc/
3649     abc(*+|abc
3650
3651 /   abc\Q abc\Eabc/x
3652     abc abcabc
3653 \= Expect no match
3654     abcabcabc
3655
3656 /abc#comment
3657     \Q#not comment
3658     literal\E/x
3659     abc#not comment\n    literal
3660
3661 /abc#comment
3662     \Q#not comment
3663     literal/x
3664     abc#not comment\n    literal
3665
3666 /abc#comment
3667     \Q#not comment
3668     literal\E #more comment
3669     /x
3670     abc#not comment\n    literal
3671
3672 /abc#comment
3673     \Q#not comment
3674     literal\E #more comment/x
3675     abc#not comment\n    literal
3676
3677 /\Qabc\$xyz\E/
3678     abc\\\$xyz
3679
3680 /\Qabc\E\$\Qxyz\E/
3681     abc\$xyz
3682
3683 /\Gabc/
3684     abc
3685 \= Expect no match
3686     xyzabc
3687
3688 /\Gabc./g
3689     abc1abc2xyzabc3
3690
3691 /abc./g
3692     abc1abc2xyzabc3
3693
3694 /a(?x: b c )d/
3695     XabcdY
3696 \= Expect no match
3697     Xa b c d Y
3698
3699 /((?x)x y z | a b c)/
3700     XabcY
3701     AxyzB
3702
3703 /(?i)AB(?-i)C/
3704     XabCY
3705 \= Expect no match
3706     XabcY
3707
3708 /((?i)AB(?-i)C|D)E/
3709     abCE
3710     DE
3711 \= Expect no match
3712     abcE
3713     abCe
3714     dE
3715     De
3716
3717 /(.*)\d+\1/
3718     abc123abc
3719     abc123bc
3720
3721 /(.*)\d+\1/s
3722     abc123abc
3723     abc123bc
3724
3725 /((.*))\d+\1/
3726     abc123abc
3727     abc123bc
3728
3729 # This tests for an IPv6 address in the form where it can have up to
3730 # eight components, one and only one of which is empty. This must be
3731 # an internal component.
3732
3733 /^(?!:)                       # colon disallowed at start
3734   (?:                         # start of item
3735     (?: [0-9a-f]{1,4} |       # 1-4 hex digits or
3736     (?(1)0 | () ) )           # if null previously matched, fail; else null
3737     :                         # followed by colon
3738   ){1,7}                      # end item; 1-7 of them required
3739   [0-9a-f]{1,4} $             # final hex number at end of string
3740   (?(1)|.)                    # check that there was an empty component
3741   /ix
3742     a123::a123
3743     a123:b342::abcd
3744     a123:b342::324e:abcd
3745     a123:ddde:b342::324e:abcd
3746     a123:ddde:b342::324e:dcba:abcd
3747     a123:ddde:9999:b342::324e:dcba:abcd
3748 \= Expect no match
3749     1:2:3:4:5:6:7:8
3750     a123:bce:ddde:9999:b342::324e:dcba:abcd
3751     a123::9999:b342::324e:dcba:abcd
3752     abcde:2:3:4:5:6:7:8
3753     ::1
3754     abcd:fee0:123::
3755     :1
3756     1:
3757
3758 /[z\Qa-d]\E]/
3759     z
3760     a
3761     -
3762     d
3763     ]
3764 \= Expect no match
3765     b
3766
3767 /(a+)*b/
3768 \= Expect no match
3769     aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
3770
3771 /(?i)reg(?:ul(?:[aä]|ae)r|ex)/
3772     REGular
3773     regulaer
3774     Regex
3775     regulär
3776
3777 /Åæåä[à-ÿÀ-ß]+/
3778     Åæåäà
3779     Åæåäÿ
3780     ÅæåäÀ
3781     Åæåäß
3782
3783 /(?<=Z)X./
3784   \x84XAZXB
3785
3786 /ab cd (?x) de fg/
3787     ab cd defg
3788
3789 /ab cd(?x) de fg/
3790     ab cddefg
3791 \= Expect no match
3792     abcddefg
3793
3794 /(?<![^f]oo)(bar)/
3795     foobarX
3796 \= Expect no match
3797     boobarX
3798
3799 /(?<![^f])X/
3800     offX
3801 \= Expect no match
3802     onyX
3803
3804 /(?<=[^f])X/
3805     onyX
3806 \= Expect no match
3807     offX
3808
3809 /^/gm
3810     a\nb\nc\n
3811     \
3812
3813 /(?<=C\n)^/gm
3814     A\nC\nC\n
3815
3816 /(?:(?(1)a|b)(X))+/
3817     bXaX
3818
3819 /(?:(?(1)\1a|b)(X|Y))+/
3820     bXXaYYaY
3821     bXYaXXaX
3822
3823 /()()()()()()()()()(?:(?(10)\10a|b)(X|Y))+/
3824     bXXaYYaY
3825
3826 /[[,abc,]+]/
3827     abc]
3828     a,b]
3829     [a,b,c]
3830
3831 /(?-x: )/x
3832     A\x20B
3833
3834 "(?x)(?-x: \s*#\s*)"
3835     A # B
3836 \= Expect no match
3837     #
3838
3839 "(?x-is)(?:(?-ixs) \s*#\s*) include"
3840     A #include
3841 \= Expect no match
3842     A#include
3843     A #Include
3844
3845 /a*b*\w/
3846     aaabbbb
3847     aaaa
3848     a
3849
3850 /a*b?\w/
3851     aaabbbb
3852     aaaa
3853     a
3854
3855 /a*b{0,4}\w/
3856     aaabbbb
3857     aaaa
3858     a
3859
3860 /a*b{0,}\w/
3861     aaabbbb
3862     aaaa
3863     a
3864
3865 /a*\d*\w/
3866     0a
3867     a
3868
3869 /a*b *\w/x
3870     a
3871
3872 /a*b#comment
3873   *\w/x
3874     a
3875
3876 /a* b *\w/x
3877     a
3878
3879 /^\w+=.*(\\\n.*)*/
3880     abc=xyz\\\npqr
3881
3882 /(?=(\w+))\1:/
3883     abcd:
3884
3885 /^(?=(\w+))\1:/
3886     abcd:
3887
3888 /^\Eabc/
3889     abc
3890
3891 /^[\Eabc]/
3892     a
3893 \= Expect no match
3894     E
3895
3896 /^[a-\Ec]/
3897     b
3898 \= Expect no match
3899     -
3900     E
3901
3902 /^[a\E\E-\Ec]/
3903     b
3904 \= Expect no match
3905     -
3906     E
3907
3908 /^[\E\Qa\E-\Qz\E]+/
3909     b
3910 \= Expect no match
3911     -
3912
3913 /^[a\Q]bc\E]/
3914     a
3915     ]
3916     c
3917
3918 /^[a-\Q\E]/
3919     a
3920     -
3921
3922 /^(a()*)*/
3923     aaaa
3924
3925 /^(?:a(?:(?:))*)*/
3926     aaaa
3927
3928 /^(a()+)+/
3929     aaaa
3930
3931 /^(?:a(?:(?:))+)+/
3932     aaaa
3933
3934 /(a){0,3}(?(1)b|(c|))*D/
3935     abbD
3936     ccccD
3937     D
3938
3939 /(a|)*\d/
3940   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa4
3941 \= Expect no match
3942   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
3943
3944 /(?>a|)*\d/
3945   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa4
3946 \= Expect no match
3947   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
3948
3949 /(?:a|)*\d/
3950   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa4
3951 \= Expect no match
3952   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
3953
3954 /\Z/g
3955   abc\n
3956
3957 /^(?s)(?>.*)(?<!\n)/
3958   abc
3959 \= Expect no match
3960   abc\n
3961
3962 /^(?![^\n]*\n\z)/
3963   abc
3964 \= Expect no match
3965   abc\n
3966
3967 /\z(?<!\n)/
3968   abc
3969 \= Expect no match
3970   abc\n
3971
3972 /(.*(.)?)*/
3973     abcd
3974
3975 /( (A | (?(1)0|) )*   )/x
3976     abcd
3977
3978 /( ( (?(1)0|) )*   )/x
3979     abcd
3980
3981 /(  (?(1)0|)*   )/x
3982     abcd
3983
3984 /[[:abcd:xyz]]/
3985     a]
3986     :]
3987
3988 /[abc[:x\]pqr]/
3989     a
3990     [
3991     :
3992     ]
3993     p
3994
3995 /.*[op][xyz]/
3996 \= Expect no match
3997     fooabcfoo
3998
3999 /(?(?=.*b)b|^)/
4000    adc
4001    abc
4002
4003 /(?(?=^.*b)b|^)/
4004    adc
4005 \= Expect no match
4006    abc
4007
4008 /(?(?=.*b)b|^)*/
4009    adc
4010    abc
4011
4012 /(?(?=.*b)b|^)+/
4013    adc
4014    abc
4015
4016 /(?(?=b).*b|^d)/
4017     abc
4018
4019 /(?(?=.*b).*b|^d)/
4020     abc
4021
4022 /^%((?(?=[a])[^%])|b)*%$/
4023     %ab%
4024
4025 /(?i)a(?-i)b|c/
4026     XabX
4027     XAbX
4028     CcC
4029 \= Expect no match
4030     XABX
4031
4032 /[\x00-\xff\s]+/
4033     \x0a\x0b\x0c\x0d
4034
4035 /(abc)\1/i
4036 \= Expect no match
4037    abc
4038
4039 /(abc)\1/
4040 \= Expect no match
4041    abc
4042
4043 /[^a]*/i
4044     12abc
4045     12ABC
4046
4047 /[^a]*+/i
4048     12abc
4049     12ABC
4050
4051 /[^a]*?X/i
4052 \= Expect no match
4053     12abc
4054     12ABC
4055
4056 /[^a]+?X/i
4057 \= Expect no match
4058     12abc
4059     12ABC
4060
4061 /[^a]?X/i
4062     12aXbcX
4063     12AXBCX
4064     BCX
4065
4066 /[^a]??X/i
4067     12aXbcX
4068     12AXBCX
4069     BCX
4070
4071 /[^a]?+X/i
4072     12aXbcX
4073     12AXBCX
4074     BCX
4075
4076 /[^a]{2,3}/i
4077     abcdef
4078     ABCDEF
4079
4080 /[^a]{2,3}?/i
4081     abcdef
4082     ABCDEF
4083
4084 /[^a]{2,3}+/i
4085     abcdef
4086     ABCDEF
4087
4088 /((a|)+)+Z/
4089     Z
4090
4091 /(a)b|(a)c/
4092     ac
4093
4094 /(?>(a))b|(a)c/
4095     ac
4096
4097 /(?=(a))ab|(a)c/
4098     ac
4099
4100 /((?>(a))b|(a)c)/
4101     ac
4102
4103 /((?>(a))b|(a)c)++/
4104     ac
4105
4106 /(?:(?>(a))b|(a)c)++/
4107     ac
4108
4109 /(?=(?>(a))b|(a)c)(..)/
4110     ac
4111
4112 /(?>(?>(a))b|(a)c)/
4113     ac
4114
4115 /(?:(?>([ab])))+a=/aftertext
4116     =ba=
4117
4118 /(?>([ab]))+a=/aftertext
4119     =ba=
4120
4121 /((?>(a+)b)+(aabab))/
4122     aaaabaaabaabab
4123
4124 /(?>a+|ab)+?c/
4125 \= Expect no match
4126     aabc
4127
4128 /(?>a+|ab)+c/
4129 \= Expect no match
4130     aabc
4131
4132 /(?:a+|ab)+c/
4133     aabc
4134
4135 /(?(?=(a))a)/
4136     a
4137
4138 /(?(?=(a))a)(b)/
4139     ab
4140
4141 /^(?:a|ab)++c/
4142 \= Expect no match
4143     aaaabc
4144
4145 /^(?>a|ab)++c/
4146 \= Expect no match
4147     aaaabc
4148
4149 /^(?:a|ab)+c/
4150     aaaabc
4151
4152 /(?=abc){3}abc/aftertext
4153     abcabcabc
4154 \= Expect no match
4155     xyz
4156
4157 /(?=abc)+abc/aftertext
4158     abcabcabc
4159 \= Expect no match
4160     xyz
4161
4162 /(?=abc)++abc/aftertext
4163     abcabcabc
4164 \= Expect no match
4165     xyz
4166
4167 /(?=abc){0}xyz/
4168     xyz
4169
4170 /(?=abc){1}xyz/
4171 \= Expect no match
4172     xyz
4173
4174 /(?=(a))?./
4175     ab
4176     bc
4177
4178 /(?=(a))??./
4179     ab
4180     bc
4181
4182 /^(?=(?1))?[az]([abc])d/
4183     abd
4184     zcdxx
4185
4186 /^(?!a){0}\w+/
4187     aaaaa
4188
4189 /(?<=(abc))?xyz/
4190     abcxyz
4191     pqrxyz
4192
4193 /^[\g<a>]+/
4194     ggg<<<aaa>>>
4195 \= Expect no match
4196     \\ga
4197
4198 /^[\ga]+/
4199     gggagagaxyz
4200
4201 /^[:a[:digit:]]+/
4202     aaaa444:::Z
4203
4204 /^[:a[:digit:]:b]+/
4205     aaaa444:::bbbZ
4206
4207 /[:a]xxx[b:]/
4208      :xxx:
4209
4210 /(?<=a{2})b/i
4211     xaabc
4212 \= Expect no match
4213     xabc
4214
4215 /(?<!a{2})b/i
4216     xabc
4217 \= Expect no match
4218     xaabc
4219
4220 /(?<=a\h)c/
4221     xa c
4222
4223 /(?<=[^a]{2})b/
4224     axxbc
4225     aAAbc
4226 \= Expect no match
4227     xaabc
4228
4229 /(?<=[^a]{2})b/i
4230     axxbc
4231 \= Expect no match
4232     aAAbc
4233     xaabc
4234
4235 /(?<=a\H)c/
4236     abc
4237
4238 /(?<=a\V)c/
4239     abc
4240
4241 /(?<=a\v)c/
4242     a\nc
4243
4244 /(?(?=c)c|d)++Y/
4245     XcccddYX
4246
4247 /(?(?=c)c|d)*+Y/
4248     XcccddYX
4249
4250 /^(a{2,3}){2,}+a/
4251     aaaaaaa
4252 \= Expect no match
4253     aaaaaa
4254     aaaaaaaaa
4255
4256 /^(a{2,3})++a/
4257 \= Expect no match
4258     aaaaaa
4259
4260 /^(a{2,3})*+a/
4261 \= Expect no match
4262     aaaaaa
4263
4264 /\H\h\V\v/
4265     X X\x0a
4266     X\x09X\x0b
4267 \= Expect no match
4268     \xa0 X\x0a
4269
4270 /\H*\h+\V?\v{3,4}/
4271     \x09\x20\xa0X\x0a\x0b\x0c\x0d\x0a
4272     \x09\x20\xa0\x0a\x0b\x0c\x0d\x0a
4273     \x09\x20\xa0\x0a\x0b\x0c
4274 \= Expect no match
4275     \x09\x20\xa0\x0a\x0b
4276
4277 /\H{3,4}/
4278     XY  ABCDE
4279     XY  PQR ST
4280
4281 /.\h{3,4}./
4282     XY  AB    PQRS
4283
4284 /\h*X\h?\H+Y\H?Z/
4285     >XNNNYZ
4286     >  X NYQZ
4287 \= Expect no match
4288     >XYZ
4289     >  X NY Z
4290
4291 /\v*X\v?Y\v+Z\V*\x0a\V+\x0b\V{2,3}\x0c/
4292     >XY\x0aZ\x0aA\x0bNN\x0c
4293     >\x0a\x0dX\x0aY\x0a\x0bZZZ\x0aAAA\x0bNNN\x0c
4294
4295 /(foo)\Kbar/
4296     foobar
4297
4298 /(foo)(\Kbar|baz)/
4299     foobar
4300     foobaz
4301
4302 /(foo\Kbar)baz/
4303     foobarbaz
4304
4305 /abc\K|def\K/g,aftertext
4306     Xabcdefghi
4307
4308 /ab\Kc|de\Kf/g,aftertext
4309     Xabcdefghi
4310
4311 /(?=C)/g,aftertext
4312     ABCDECBA
4313
4314 /^abc\K/aftertext
4315     abcdef
4316 \= Expect no match
4317     defabcxyz
4318
4319 /^(a(b))\1\g1\g{1}\g-1\g{-1}\g{-2}Z/
4320     ababababbbabZXXXX
4321
4322 /(?<A>tom|bon)-\g{A}/
4323     tom-tom
4324     bon-bon
4325
4326 /(^(a|b\g{-1}))/
4327 \= Expect no match
4328     bacxxx
4329
4330 /(?|(abc)|(xyz))\1/
4331     abcabc
4332     xyzxyz
4333 \= Expect no match
4334     abcxyz
4335     xyzabc
4336
4337 /(?|(abc)|(xyz))(?1)/
4338     abcabc
4339     xyzabc
4340 \= Expect no match
4341     xyzxyz
4342
4343 /^X(?5)(a)(?|(b)|(q))(c)(d)(Y)/
4344     XYabcdY
4345
4346 /^X(?7)(a)(?|(b|(r)(s))|(q))(c)(d)(Y)/
4347     XYabcdY
4348
4349 /^X(?7)(a)(?|(b|(?|(r)|(t))(s))|(q))(c)(d)(Y)/
4350     XYabcdY
4351
4352 /(?'abc'\w+):\k<abc>{2}/
4353     a:aaxyz
4354     ab:ababxyz
4355 \= Expect no match
4356     a:axyz
4357     ab:abxyz
4358
4359 /(?'abc'\w+):\g{abc}{2}/
4360     a:aaxyz
4361     ab:ababxyz
4362 \= Expect no match
4363     a:axyz
4364     ab:abxyz
4365
4366 /^(?<ab>a)? (?(<ab>)b|c) (?('ab')d|e)/x
4367     abd
4368     ce
4369
4370 /^(a.)\g-1Z/
4371     aXaXZ
4372
4373 /^(a.)\g{-1}Z/
4374     aXaXZ
4375
4376 /^(?(DEFINE) (?<A> a) (?<B> b) )  (?&A) (?&B) /x
4377     abcd
4378
4379 /(?<NAME>(?&NAME_PAT))\s+(?<ADDR>(?&ADDRESS_PAT))
4380   (?(DEFINE)
4381   (?<NAME_PAT>[a-z]+)
4382   (?<ADDRESS_PAT>\d+)
4383   )/x
4384     metcalfe 33
4385
4386 /(?(DEFINE)(?<byte>2[0-4]\d|25[0-5]|1\d\d|[1-9]?\d))\b(?&byte)(\.(?&byte)){3}/
4387     1.2.3.4
4388     131.111.10.206
4389     10.0.0.0
4390 \= Expect no match
4391     10.6
4392     455.3.4.5
4393
4394 /\b(?&byte)(\.(?&byte)){3}(?(DEFINE)(?<byte>2[0-4]\d|25[0-5]|1\d\d|[1-9]?\d))/
4395     1.2.3.4
4396     131.111.10.206
4397     10.0.0.0
4398 \= Expect no match
4399     10.6
4400     455.3.4.5
4401
4402 /^(\w++|\s++)*$/
4403     now is the time for all good men to come to the aid of the party
4404 \= Expect no match
4405     this is not a line with only words and spaces!
4406
4407 /(\d++)(\w)/
4408     12345a
4409 \= Expect no match
4410     12345+
4411
4412 /a++b/
4413     aaab
4414
4415 /(a++b)/
4416     aaab
4417
4418 /(a++)b/
4419     aaab
4420
4421 /([^()]++|\([^()]*\))+/
4422     ((abc(ade)ufh()()x
4423
4424 /\(([^()]++|\([^()]+\))+\)/
4425     (abc)
4426     (abc(def)xyz)
4427 \= Expect no match
4428     ((()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
4429
4430 /^([^()]|\((?1)*\))*$/
4431     abc
4432     a(b)c
4433     a(b(c))d
4434 \= Expect no match)
4435     a(b(c)d
4436
4437 /^>abc>([^()]|\((?1)*\))*<xyz<$/
4438    >abc>123<xyz<
4439    >abc>1(2)3<xyz<
4440    >abc>(1(2)3)<xyz<
4441
4442 /^(?:((.)(?1)\2|)|((.)(?3)\4|.))$/i
4443     1221
4444     Satanoscillatemymetallicsonatas
4445     AmanaplanacanalPanama
4446     AblewasIereIsawElba
4447 \= Expect no match
4448     Thequickbrownfox
4449
4450 /^(\d+|\((?1)([+*-])(?1)\)|-(?1))$/
4451     12
4452     (((2+2)*-3)-7)
4453     -12
4454 \= Expect no match
4455     ((2+2)*-3)-7)
4456
4457 /^(x(y|(?1){2})z)/
4458     xyz
4459     xxyzxyzz
4460 \= Expect no match
4461     xxyzz
4462     xxyzxyzxyzz
4463
4464 /((< (?: (?(R) \d++  | [^<>]*+) | (?2)) * >))/x
4465     <>
4466     <abcd>
4467     <abc <123> hij>
4468     <abc <def> hij>
4469     <abc<>def>
4470     <abc<>
4471 \= Expect no match
4472     <abc
4473
4474 /^a+(*FAIL)/
4475 \= Expect no match
4476     aaaaaa
4477
4478 /a+b?c+(*FAIL)/
4479 \= Expect no match
4480     aaabccc
4481
4482 /a+b?(*PRUNE)c+(*FAIL)/
4483 \= Expect no match
4484     aaabccc
4485
4486 /a+b?(*COMMIT)c+(*FAIL)/
4487 \= Expect no match
4488     aaabccc
4489
4490 /a+b?(*SKIP)c+(*FAIL)/
4491 \= Expect no match
4492     aaabcccaaabccc
4493
4494 /^(?:aaa(*THEN)\w{6}|bbb(*THEN)\w{5}|ccc(*THEN)\w{4}|\w{3})/
4495     aaaxxxxxx
4496     aaa++++++
4497     bbbxxxxx
4498     bbb+++++
4499     cccxxxx
4500     ccc++++
4501     dddddddd
4502
4503 /^(aaa(*THEN)\w{6}|bbb(*THEN)\w{5}|ccc(*THEN)\w{4}|\w{3})/
4504     aaaxxxxxx
4505     aaa++++++
4506     bbbxxxxx
4507     bbb+++++
4508     cccxxxx
4509     ccc++++
4510     dddddddd
4511
4512 /a+b?(*THEN)c+(*FAIL)/
4513 \= Expect no match
4514     aaabccc
4515
4516 /(A (A|B(*ACCEPT)|C) D)(E)/x
4517     AB
4518     ABX
4519     AADE
4520     ACDE
4521 \= Expect no match
4522     AD
4523
4524 /^\W*+(?:((.)\W*+(?1)\W*+\2|)|((.)\W*+(?3)\W*+\4|\W*+.\W*+))\W*+$/i
4525     1221
4526     Satan, oscillate my metallic sonatas!
4527     A man, a plan, a canal: Panama!
4528     Able was I ere I saw Elba.
4529 \= Expect no match
4530     The quick brown fox
4531
4532 /^((.)(?1)\2|.)$/
4533     a
4534     aba
4535     aabaa
4536     abcdcba
4537     pqaabaaqp
4538     ablewasiereisawelba
4539 \= Expect no match
4540     rhubarb
4541     the quick brown fox
4542
4543 /(a)(?<=b(?1))/
4544     baz
4545 \= Expect no match
4546     caz
4547
4548 /(?<=b(?1))(a)/
4549     zbaaz
4550 \= Expect no match
4551     aaa
4552
4553 /(?<X>a)(?<=b(?&X))/
4554     baz
4555
4556 /^(?|(abc)|(def))\1/
4557     abcabc
4558     defdef
4559 \= Expect no match
4560     abcdef
4561     defabc
4562
4563 /^(?|(abc)|(def))(?1)/
4564     abcabc
4565     defabc
4566 \= Expect no match
4567     defdef
4568     abcdef
4569
4570 /(?:a(?<quote> (?<apostrophe>')|(?<realquote>")) |b(?<quote> (?<apostrophe>')|(?<realquote>")) ) (?('quote')[a-z]+|[0-9]+)/x,dupnames
4571     a\"aaaaa
4572     b\"aaaaa
4573 \= Expect no match
4574     b\"11111
4575
4576 /(?:(?1)|B)(A(*F)|C)/
4577     ABCD
4578     CCD
4579 \= Expect no match
4580     CAD
4581
4582 /^(?:(?1)|B)(A(*F)|C)/
4583     CCD
4584     BCD
4585 \= Expect no match
4586     ABCD
4587     CAD
4588     BAD
4589
4590 /(?:(?1)|B)(A(*ACCEPT)XX|C)D/
4591     AAD
4592     ACD
4593     BAD
4594     BCD
4595     BAX
4596 \= Expect no match
4597     ACX
4598     ABC
4599
4600 /(?(DEFINE)(A))B(?1)C/
4601     BAC
4602
4603 /(?(DEFINE)((A)\2))B(?1)C/
4604     BAAC
4605
4606 /(?<pn> \( ( [^()]++ | (?&pn) )* \) )/x
4607     (ab(cd)ef)
4608
4609 /^(?=a(*SKIP)b|ac)/
4610 \= Expect no match
4611     ac
4612
4613 /^(?=a(*PRUNE)b)/
4614     ab
4615 \= Expect no match
4616     ac
4617
4618 /^(?=a(*ACCEPT)b)/
4619     ac
4620
4621 /(?>a\Kb)/
4622     ab
4623
4624 /((?>a\Kb))/
4625     ab
4626
4627 /(a\Kb)/
4628     ab
4629
4630 /^a\Kcz|ac/
4631     ac
4632
4633 /(?>a\Kbz|ab)/
4634     ab
4635
4636 /^(?&t)(?(DEFINE)(?<t>a\Kb))$/
4637     ab
4638
4639 /^([^()]|\((?1)*\))*$/
4640     a(b)c
4641     a(b(c)d)e
4642
4643 /(?P<L1>(?P<L2>0)(?P>L1)|(?P>L2))/
4644     0
4645     00
4646     0000
4647
4648 /(?P<L1>(?P<L2>0)|(?P>L2)(?P>L1))/
4649     0
4650     00
4651     0000
4652
4653 # This one does fail, as expected, in Perl. It needs the complex item at the
4654 # end of the pattern. A single letter instead of (B|D) makes it not fail, which
4655 # I think is a Perl bug.
4656
4657 /A(*COMMIT)(B|D)/
4658 \= Expect no match
4659     ACABX
4660
4661 # Check the use of names for failure
4662
4663 /^(A(*PRUNE:A)B|C(*PRUNE:B)D)/mark
4664 \= Expect no match
4665     AC
4666     CB
4667
4668 /(*MARK:A)(*SKIP:B)(C|X)/mark
4669     C
4670 \= Expect no match
4671     D
4672
4673 /^(A(*THEN:A)B|C(*THEN:B)D)/mark
4674 \= Expect no match
4675     CB
4676
4677 /^(?:A(*THEN:A)B|C(*THEN:B)D)/mark
4678 \= Expect no match
4679     CB
4680
4681 /^(?>A(*THEN:A)B|C(*THEN:B)D)/mark
4682 \= Expect no match
4683     CB
4684
4685 # This should succeed, as the skip causes bump to offset 1 (the mark). Note
4686 # that we have to have something complicated such as (B|Z) at the end because,
4687 # for Perl, a simple character somehow causes an unwanted optimization to mess
4688 # with the handling of backtracking verbs.
4689
4690 /A(*MARK:A)A+(*SKIP:A)(B|Z) | AC/x,mark
4691     AAAC
4692
4693 # Test skipping over a non-matching mark.
4694
4695 /A(*MARK:A)A+(*MARK:B)(*SKIP:A)(B|Z) | AC/x,mark
4696     AAAC
4697
4698 # Check shorthand for MARK.
4699
4700 /A(*:A)A+(*SKIP:A)(B|Z) | AC/x,mark
4701     AAAC
4702
4703 /(*:A)A+(*SKIP:A)(B|Z)/mark
4704 \= Expect no match
4705     AAAC
4706
4707 # This should succeed, as a non-existent skip name disables the skip.
4708
4709 /A(*MARK:A)A+(*SKIP:B)(B|Z) | AC/x,mark
4710     AAAC
4711
4712 /A(*MARK:A)A+(*SKIP:B)(B|Z) | AC(*:B)/x,mark
4713     AAAC
4714
4715 # COMMIT at the start of a pattern should act like an anchor. Again, however,
4716 # we need the complication for Perl.
4717
4718 /(*COMMIT)(A|P)(B|P)(C|P)/
4719     ABCDEFG
4720 \= Expect no match
4721     DEFGABC
4722
4723 # COMMIT inside an atomic group can't stop backtracking over the group.
4724
4725 /(\w+)(?>b(*COMMIT))\w{2}/
4726     abbb
4727
4728 /(\w+)b(*COMMIT)\w{2}/
4729 \= Expect no match
4730     abbb
4731
4732 # Check opening parens in comment when seeking forward reference.
4733
4734 /(?&t)(?#()(?(DEFINE)(?<t>a))/
4735     bac
4736
4737 # COMMIT should override THEN.
4738
4739 /(?>(*COMMIT)(?>yes|no)(*THEN)(*F))?/
4740 \= Expect no match
4741   yes
4742
4743 /(?>(*COMMIT)(yes|no)(*THEN)(*F))?/
4744 \= Expect no match
4745   yes
4746
4747 /b?(*SKIP)c/
4748     bc
4749     abc
4750
4751 /(*SKIP)bc/
4752 \= Expect no match
4753     a
4754
4755 /(*SKIP)b/
4756 \= Expect no match
4757     a
4758
4759 /(?P<abn>(?P=abn)xxx|)+/
4760     xxx
4761
4762 /(?i:([^b]))(?1)/
4763     aa
4764     aA
4765 \= Expect no match
4766     ab
4767     aB
4768     Ba
4769     ba
4770
4771 /^(?&t)*+(?(DEFINE)(?<t>a))\w$/
4772     aaaaaaX
4773 \= Expect no match
4774     aaaaaa
4775
4776 /^(?&t)*(?(DEFINE)(?<t>a))\w$/
4777     aaaaaaX
4778     aaaaaa
4779
4780 /^(a)*+(\w)/
4781     aaaaX
4782     YZ
4783 \= Expect no match
4784     aaaa
4785
4786 /^(?:a)*+(\w)/
4787     aaaaX
4788     YZ
4789 \= Expect no match
4790     aaaa
4791
4792 /^(a)++(\w)/
4793     aaaaX
4794 \= Expect no match
4795     aaaa
4796     YZ
4797
4798 /^(?:a)++(\w)/
4799     aaaaX
4800 \= Expect no match
4801     aaaa
4802     YZ
4803
4804 /^(a)?+(\w)/
4805     aaaaX
4806     YZ
4807
4808 /^(?:a)?+(\w)/
4809     aaaaX
4810     YZ
4811
4812 /^(a){2,}+(\w)/
4813     aaaaX
4814 \= Expect no match
4815     aaa
4816     YZ
4817
4818 /^(?:a){2,}+(\w)/
4819     aaaaX
4820 \= Expect no match
4821     aaa
4822     YZ
4823
4824 /(a|)*(?1)b/
4825     b
4826     ab
4827     aab
4828
4829 /(a)++(?1)b/
4830 \= Expect no match
4831     ab
4832     aab
4833
4834 /(a)*+(?1)b/
4835 \= Expect no match
4836     ab
4837     aab
4838
4839 /(?1)(?:(b)){0}/
4840     b
4841
4842 /(foo ( \( ((?:(?> [^()]+ )|(?2))*) \) ) )/x
4843     foo(bar(baz)+baz(bop))
4844
4845 /(A (A|B(*ACCEPT)|C) D)(E)/x
4846     AB
4847
4848 /\A.*?(a|bc)/
4849     ba
4850
4851 /\A.*?(?:a|bc)++/
4852     ba
4853
4854 /\A.*?(a|bc)++/
4855     ba
4856
4857 /\A.*?(?:a|bc|d)/
4858     ba
4859
4860 /(?:(b))++/
4861     beetle
4862
4863 /(?(?=(a(*ACCEPT)z))a)/
4864     a
4865
4866 /^(a)(?1)+ab/
4867     aaaab
4868
4869 /^(a)(?1)++ab/
4870 \= Expect no match
4871     aaaab
4872
4873 /^(?=a(*:M))aZ/mark
4874     aZbc
4875
4876 /^(?!(*:M)b)aZ/mark
4877     aZbc
4878
4879 /(?(DEFINE)(a))?b(?1)/
4880     backgammon
4881
4882 /^\N+/
4883     abc\ndef
4884
4885 /^\N{1,}/
4886     abc\ndef
4887
4888 /(?(R)a+|(?R)b)/
4889     aaaabcde
4890
4891 /(?(R)a+|((?R))b)/
4892     aaaabcde
4893
4894 /((?(R)a+|(?1)b))/
4895     aaaabcde
4896
4897 /((?(R1)a+|(?1)b))/
4898     aaaabcde
4899
4900 /((?(R)a|(?1)))*/
4901     aaa
4902
4903 /((?(R)a|(?1)))+/
4904     aaa
4905
4906 /a(*:any
4907 name)/mark
4908     abc
4909
4910 /(?>(?&t)c|(?&t))(?(DEFINE)(?<t>a|b(*PRUNE)c))/
4911     a
4912     ba
4913     bba
4914
4915 # Checking revised (*THEN) handling.
4916
4917 # Capture
4918
4919 /^.*? (a(*THEN)b) c/x
4920 \= Expect no match
4921     aabc
4922
4923 /^.*? (a(*THEN)b|(*F)) c/x
4924     aabc
4925
4926 /^.*? ( (a(*THEN)b) | (*F) ) c/x
4927     aabc
4928
4929 /^.*? ( (a(*THEN)b) ) c/x
4930 \= Expect no match
4931     aabc
4932
4933 # Non-capture
4934
4935 /^.*? (?:a(*THEN)b) c/x
4936 \= Expect no match
4937     aabc
4938
4939 /^.*? (?:a(*THEN)b|(*F)) c/x
4940     aabc
4941
4942 /^.*? (?: (?:a(*THEN)b) | (*F) ) c/x
4943     aabc
4944
4945 /^.*? (?: (?:a(*THEN)b) ) c/x
4946 \= Expect no match
4947     aabc
4948
4949 # Atomic
4950
4951 /^.*? (?>a(*THEN)b) c/x
4952 \= Expect no match
4953     aabc
4954
4955 /^.*? (?>a(*THEN)b|(*F)) c/x
4956     aabc
4957
4958 /^.*? (?> (?>a(*THEN)b) | (*F) ) c/x
4959     aabc
4960
4961 /^.*? (?> (?>a(*THEN)b) ) c/x
4962 \= Expect no match
4963     aabc
4964
4965 # Possessive capture
4966
4967 /^.*? (a(*THEN)b)++ c/x
4968 \= Expect no match
4969     aabc
4970
4971 /^.*? (a(*THEN)b|(*F))++ c/x
4972     aabc
4973
4974 /^.*? ( (a(*THEN)b)++ | (*F) )++ c/x
4975     aabc
4976
4977 /^.*? ( (a(*THEN)b)++ )++ c/x
4978 \= Expect no match
4979     aabc
4980
4981 # Possessive non-capture
4982
4983 /^.*? (?:a(*THEN)b)++ c/x
4984 \= Expect no match
4985     aabc
4986
4987 /^.*? (?:a(*THEN)b|(*F))++ c/x
4988     aabc
4989
4990 /^.*? (?: (?:a(*THEN)b)++ | (*F) )++ c/x
4991     aabc
4992
4993 /^.*? (?: (?:a(*THEN)b)++ )++ c/x
4994 \= Expect no match
4995     aabc
4996
4997 # Condition assertion
4998
4999 /^(?(?=a(*THEN)b)ab|ac)/
5000     ac
5001
5002 # Condition
5003
5004 /^.*?(?(?=a)a|b(*THEN)c)/
5005 \= Expect no match
5006     ba
5007
5008 /^.*?(?:(?(?=a)a|b(*THEN)c)|d)/
5009     ba
5010
5011 /^.*?(?(?=a)a(*THEN)b|c)/
5012 \= Expect no match
5013     ac
5014
5015 # Assertion
5016
5017 /^.*(?=a(*THEN)b)/
5018     aabc
5019
5020 # --------------------------
5021
5022 /(?>a(*:m))/imsx,mark
5023     a
5024
5025 /(?>(a)(*:m))/imsx,mark
5026     a
5027
5028 /(?<=a(*ACCEPT)b)c/
5029     xacd
5030
5031 /(?<=(a(*ACCEPT)b))c/
5032     xacd
5033
5034 /(?<=(a(*COMMIT)b))c/
5035     xabcd
5036 \= Expect no match
5037     xacd
5038
5039 /(?<!a(*FAIL)b)c/
5040     xcd
5041     acd
5042
5043 /(?<=a(*:N)b)c/mark
5044     xabcd
5045
5046 /(?<=a(*PRUNE)b)c/
5047     xabcd
5048
5049 /(?<=a(*SKIP)b)c/
5050     xabcd
5051
5052 /(?<=a(*THEN)b)c/
5053     xabcd
5054
5055 /(a)(?2){2}(.)/
5056     abcd
5057
5058 /(*MARK:A)(*PRUNE:B)(C|X)/mark
5059     C
5060 \= Expect no match
5061     D
5062
5063 /(*MARK:A)(*PRUNE:B)(C|X)/mark
5064     C
5065 \= Expect no match
5066     D
5067
5068 /(*MARK:A)(*THEN:B)(C|X)/mark
5069     C
5070 \= Expect no match
5071     D
5072
5073 /(*MARK:A)(*THEN:B)(C|X)/mark,no_start_optimize
5074     C
5075 \= Expect no match
5076     D
5077
5078 /(*MARK:A)(*THEN:B)(C|X)/mark
5079     C
5080 \= Expect no match
5081     D
5082
5083 # This should fail, as the skip causes a bump to offset 3 (the skip).
5084
5085 /A(*MARK:A)A+(*SKIP)(B|Z) | AC/x,mark
5086 \= Expect no match
5087     AAAC
5088
5089 # Same
5090
5091 /A(*MARK:A)A+(*MARK:B)(*SKIP:B)(B|Z) | AC/x,mark
5092 \= Expect no match
5093     AAAC
5094
5095 /A(*:A)A+(*SKIP)(B|Z) | AC/x,mark
5096 \= Expect no match
5097     AAAC
5098
5099 # This should fail, as a null name is the same as no name.
5100
5101 /A(*MARK:A)A+(*SKIP:)(B|Z) | AC/x,mark
5102 \= Expect no match
5103     AAAC
5104
5105 # A check on what happens after hitting a mark and them bumping along to
5106 # something that does not even start. Perl reports tags after the failures
5107 # here, though it does not when the individual letters are made into something
5108 # more complicated.
5109
5110 /A(*:A)B|XX(*:B)Y/mark
5111     AABC
5112     XXYZ
5113 \= Expect no match
5114     XAQQ
5115     XAQQXZZ
5116     AXQQQ
5117     AXXQQQ
5118
5119 /^(A(*THEN:A)B|C(*THEN:B)D)/mark
5120     AB
5121     CD
5122 \= Expect no match
5123     AC
5124     CB
5125
5126 /^(A(*PRUNE:A)B|C(*PRUNE:B)D)/mark
5127     AB
5128     CD
5129 \= Expect no match
5130     AC
5131     CB
5132
5133 # An empty name does not pass back an empty string. It is the same as if no
5134 # name were given.
5135
5136 /^(A(*PRUNE:)B|C(*PRUNE:B)D)/mark
5137     AB
5138     CD
5139
5140 # PRUNE goes to next bumpalong; COMMIT does not.
5141
5142 /A(*PRUNE:A)B/mark
5143     ACAB
5144
5145 # Mark names can be duplicated.
5146
5147 /A(*:A)B|X(*:A)Y/mark
5148     AABC
5149     XXYZ
5150
5151 /b(*:m)f|a(*:n)w/mark
5152     aw
5153 \= Expect no match
5154     abc
5155
5156 /b(*:m)f|aw/mark
5157     abaw
5158 \= Expect no match
5159     abc
5160     abax
5161
5162 /A(*MARK:A)A+(*SKIP:B)(B|Z) | AAC/x,mark
5163     AAAC
5164
5165 /(?=a(*MARK:A)b)..x/mark
5166     abxy
5167 \= Expect no match
5168     abpq
5169
5170 /(?=a(*MARK:A)b)..(*:Y)x/mark
5171     abxy
5172 \= Expect no match
5173     abpq
5174
5175 /(?=a(*PRUNE:A)b)..x/mark
5176     abxy
5177 \= Expect no match
5178     abpq
5179
5180 /(?=a(*PRUNE:A)b)..(*:Y)x/mark
5181     abxy
5182 \= Expect no match
5183     abpq
5184
5185 /(?=a(*THEN:A)b)..x/mark
5186     abxy
5187 \= Expect no match
5188     abpq
5189
5190 /(?=a(*THEN:A)b)..(*:Y)x/mark
5191     abxy
5192 \= Expect no match
5193     abpq
5194
5195 /(another)?(\1?)test/
5196     hello world test
5197
5198 /(another)?(\1+)test/
5199 \= Expect no match
5200     hello world test
5201
5202 /(a(*COMMIT)b){0}a(?1)|aac/
5203     aac
5204
5205 /((?:a?)*)*c/
5206     aac
5207
5208 /((?>a?)*)*c/
5209     aac
5210
5211 /(?>.*?a)(?<=ba)/
5212     aba
5213
5214 /(?:.*?a)(?<=ba)/
5215     aba
5216
5217 /(?>.*?a)b/s
5218     aab
5219
5220 /(?>.*?a)b/
5221     aab
5222
5223 /(?>^a)b/s
5224 \= Expect no match
5225     aab
5226
5227 /(?>.*?)(?<=(abcd)|(wxyz))/
5228     alphabetabcd
5229     endingwxyz
5230
5231 /(?>.*)(?<=(abcd)|(wxyz))/
5232     alphabetabcd
5233     endingwxyz
5234
5235 "(?>.*)foo"
5236 \= Expect no match
5237     abcdfooxyz
5238
5239 "(?>.*?)foo"
5240     abcdfooxyz
5241
5242 /(?:(a(*PRUNE)b)){0}(?:(?1)|ac)/
5243     ac
5244
5245 /(?:(a(*SKIP)b)){0}(?:(?1)|ac)/
5246     ac
5247
5248 /(?<=(*SKIP)ac)a/
5249 \= Expect no match
5250     aa
5251
5252 /A(*MARK:A)A+(*SKIP:B)(B|Z) | AC/x,mark
5253     AAAC
5254
5255 /a(*SKIP:m)x|ac(*:n)(*SKIP:n)d|ac/mark
5256     acacd
5257
5258 /A(*SKIP:m)x|A(*SKIP:n)x|AB/mark
5259     AB
5260
5261 /((*SKIP:r)d){0}a(*SKIP:m)x|ac(*:n)|ac/mark
5262     acacd
5263
5264 # Tests that try to figure out how Perl works. My hypothesis is that the first
5265 # verb that is backtracked onto is the one that acts. This seems to be the case
5266 # almost all the time, but there is one exception that is perhaps a bug.
5267
5268 # This matches "aaaac"; each PRUNE advances one character until the subject no
5269 # longer starts with 5 'a's.
5270
5271 /aaaaa(*PRUNE)b|a+c/
5272     aaaaaac
5273
5274 # Putting SKIP in front of PRUNE makes no difference, as it is never
5275 # backtracked onto, whether or not it has a label.
5276
5277 /aaaaa(*SKIP)(*PRUNE)b|a+c/
5278     aaaaaac
5279
5280 /aaaaa(*SKIP:N)(*PRUNE)b|a+c/
5281     aaaaaac
5282
5283 /aaaa(*:N)a(*SKIP:N)(*PRUNE)b|a+c/
5284     aaaaaac
5285
5286 # Putting THEN in front makes no difference.
5287
5288 /aaaaa(*THEN)(*PRUNE)b|a+c/
5289     aaaaaac
5290
5291 # However, putting COMMIT in front of the prune changes it to "no match". I
5292 # think this is inconsistent and possibly a bug. For the moment, running this
5293 # test is moved out of the Perl-compatible file.
5294
5295 /aaaaa(*COMMIT)(*PRUNE)b|a+c/
5296
5297 # OK, lets play the same game again using SKIP instead of PRUNE.
5298
5299 # This matches "ac" because SKIP forces the next match to start on the
5300 # sixth "a".
5301
5302 /aaaaa(*SKIP)b|a+c/
5303     aaaaaac
5304
5305 # Putting PRUNE in front makes no difference.
5306
5307 /aaaaa(*PRUNE)(*SKIP)b|a+c/
5308     aaaaaac
5309
5310 # Putting THEN in front makes no difference.
5311
5312 /aaaaa(*THEN)(*SKIP)b|a+c/
5313     aaaaaac
5314
5315 # In this case, neither does COMMIT. This still matches "ac".
5316
5317 /aaaaa(*COMMIT)(*SKIP)b|a+c/
5318     aaaaaac
5319
5320 # This gives "no match", as expected.
5321
5322 /aaaaa(*COMMIT)b|a+c/
5323 \= Expect no match
5324     aaaaaac
5325
5326 # ---- Tests using THEN ----
5327
5328 # This matches "aaaaaac", as expected.
5329
5330 /aaaaa(*THEN)b|a+c/
5331     aaaaaac
5332
5333 # Putting SKIP in front makes no difference.
5334
5335 /aaaaa(*SKIP)(*THEN)b|a+c/
5336     aaaaaac
5337
5338 # Putting PRUNE in front makes no difference.
5339
5340 /aaaaa(*PRUNE)(*THEN)b|a+c/
5341     aaaaaac
5342
5343 # Putting COMMIT in front makes no difference.
5344
5345 /aaaaa(*COMMIT)(*THEN)b|a+c/
5346     aaaaaac
5347
5348 # End of "priority" tests
5349
5350 /aaaaa(*:m)(*PRUNE:m)(*SKIP:m)m|a+/
5351     aaaaaa
5352
5353 /aaaaa(*:m)(*MARK:m)(*PRUNE)(*SKIP:m)m|a+/
5354     aaaaaa
5355
5356 /aaaaa(*:n)(*PRUNE:m)(*SKIP:m)m|a+/
5357     aaaaaa
5358
5359 /aaaaa(*:n)(*MARK:m)(*PRUNE)(*SKIP:m)m|a+/
5360     aaaaaa
5361
5362 /a(*MARK:A)aa(*PRUNE:A)a(*SKIP:A)b|a+c/
5363     aaaac
5364
5365 /a(*MARK:A)aa(*MARK:A)a(*SKIP:A)b|a+c/
5366     aaaac
5367
5368 /aaa(*PRUNE:A)a(*SKIP:A)b|a+c/
5369     aaaac
5370
5371 /aaa(*MARK:A)a(*SKIP:A)b|a+c/
5372     aaaac
5373
5374 /a(*:m)a(*COMMIT)(*SKIP:m)b|a+c/mark
5375     aaaaaac
5376
5377 /.?(a|b(*THEN)c)/
5378     ba
5379
5380 /(a(*COMMIT)b)c|abd/
5381     abc
5382 \= Expect no match
5383     abd
5384
5385 /(?=a(*COMMIT)b)abc|abd/
5386     abc
5387     abd
5388
5389 /(?>a(*COMMIT)b)c|abd/
5390     abc
5391     abd
5392
5393 /a(?=b(*COMMIT)c)[^d]|abd/
5394     abc
5395 \= Expect no match
5396     abd
5397
5398 /a(?=bc).|abd/
5399     abd
5400     abc
5401
5402 /a(?>b(*COMMIT)c)d|abd/
5403 \= Expect no match
5404     abceabd
5405
5406 /a(?>bc)d|abd/
5407     abceabd
5408
5409 /(?>a(*COMMIT)b)c|abd/
5410     abd
5411
5412 /(?>a(*COMMIT)c)d|abd/
5413 \= Expect no match
5414     abd
5415
5416 /((?=a(*COMMIT)b)ab|ac){0}(?:(?1)|a(c))/
5417     ac
5418
5419 # These tests were formerly in test 2, but changes in PCRE and Perl have
5420 # made them compatible.
5421
5422 /^(a)?(?(1)a|b)+$/
5423 \= Expect no match
5424     a
5425
5426 /(?=a\Kb)ab/
5427     ab
5428
5429 /(?!a\Kb)ac/
5430     ac
5431
5432 /^abc(?<=b\Kc)d/
5433     abcd
5434
5435 /^abc(?<!b\Kq)d/
5436     abcd
5437
5438 /A(*PRUNE:A)A+(*SKIP:A)(B|Z) | AC/x,mark
5439 \= Expect no match
5440     AAAC
5441
5442 /^((abc|abcx)(*THEN)y|abcd)/
5443     abcd
5444 \= Expect no match
5445     abcxy
5446
5447 /^((yes|no)(*THEN)(*F))?/
5448 \= Expect no match
5449     yes
5450
5451 /(A (.*)   C? (*THEN)  | A D) (*FAIL)/x
5452 \= Expect no match
5453     AbcdCBefgBhiBqz
5454
5455 /(A (.*)   C? (*THEN)  | A D) z/x
5456 \= Expect no match
5457     AbcdCBefgBhiBqz
5458
5459 /(A (.*)   C? (*THEN)  | A D) \s* (*FAIL)/x
5460 \= Expect no match
5461     AbcdCBefgBhiBqz
5462
5463 /(A (.*)   C? (*THEN)  | A D) \s* z/x
5464 \= Expect no match
5465     AbcdCBefgBhiBqz
5466
5467 /(A (.*)   (?:C|) (*THEN)  | A D) (*FAIL)/x
5468 \= Expect no match
5469     AbcdCBefgBhiBqz
5470
5471 /(A (.*)   (?:C|) (*THEN)  | A D) z/x
5472 \= Expect no match
5473     AbcdCBefgBhiBqz
5474
5475 /(A (.*)   C{0,6} (*THEN)  | A D) (*FAIL)/x
5476 \= Expect no match
5477     AbcdCBefgBhiBqz
5478
5479 /(A (.*)   C{0,6} (*THEN)  | A D) z/x
5480 \= Expect no match
5481     AbcdCBefgBhiBqz
5482
5483 /(A (.*)   (CE){0,6} (*THEN)  | A D) (*FAIL)/x
5484 \= Expect no match
5485     AbcdCEBefgBhiBqz
5486
5487 /(A (.*)   (CE){0,6} (*THEN)  | A D) z/x
5488 \= Expect no match
5489     AbcdCEBefgBhiBqz
5490
5491 /(A (.*)   (CE*){0,6} (*THEN)  | A D) (*FAIL)/x
5492 \= Expect no match
5493     AbcdCBefgBhiBqz
5494
5495 /(A (.*)   (CE*){0,6} (*THEN)  | A D) z/x
5496 \= Expect no match
5497     AbcdCBefgBhiBqz
5498
5499 /(?=a(*COMMIT)b|ac)ac|ac/
5500 \= Expect no match
5501     ac
5502
5503 /(?=a(*COMMIT)b|(ac)) ac | (a)c/x
5504 \= Expect no match
5505     ac
5506
5507 # ----
5508
5509 /(?(?!b(*THEN)a)bn|bnn)/
5510     bnn
5511
5512 /(?!b(*SKIP)a)bn|bnn/
5513     bnn
5514
5515 /(?(?!b(*SKIP)a)bn|bnn)/
5516     bnn
5517
5518 /(?!b(*PRUNE)a)bn|bnn/
5519     bnn
5520
5521 /(?(?!b(*PRUNE)a)bn|bnn)/
5522     bnn
5523
5524 /(?!b(*COMMIT)a)bn|bnn/
5525     bnn
5526
5527 /(?(?!b(*COMMIT)a)bn|bnn)/
5528    bnn
5529
5530 /(?=b(*SKIP)a)bn|bnn/
5531 \= Expect no match
5532     bnn
5533
5534 /(?=b(*THEN)a)bn|bnn/
5535     bnn
5536
5537 /^(?!a(*SKIP)b)/
5538     ac
5539
5540 /^(?!a(*SKIP)b)../
5541     acd
5542
5543 /(?!a(*SKIP)b)../
5544     acd
5545
5546 /^(?(?!a(*SKIP)b))/
5547     ac
5548
5549 /^(?!a(*PRUNE)b)../
5550     acd
5551
5552 /(?!a(*PRUNE)b)../
5553     acd
5554
5555 /(?!a(*COMMIT)b)ac|cd/
5556     ac
5557
5558 /\A.*?(?:a|bc)/
5559     ba
5560
5561 /^(A(*THEN)B|C(*THEN)D)/
5562     CD
5563
5564 /(*:m(m)(?&y)(?(DEFINE)(?<y>b))/mark
5565     abc
5566
5567 /(*PRUNE:m(m)(?&y)(?(DEFINE)(?<y>b))/mark
5568     abc
5569
5570 /(*SKIP:m(m)(?&y)(?(DEFINE)(?<y>b))/mark
5571     abc
5572
5573 /(*THEN:m(m)(?&y)(?(DEFINE)(?<y>b))/mark
5574     abc
5575
5576 /^\d*\w{4}/
5577     1234
5578 \= Expect no match
5579     123
5580
5581 /^[^b]*\w{4}/
5582     aaaa
5583 \= Expect no match
5584     aaa
5585
5586 /^[^b]*\w{4}/i
5587     aaaa
5588 \= Expect no match
5589     aaa
5590
5591 /^a*\w{4}/
5592     aaaa
5593 \= Expect no match
5594     aaa
5595
5596 /^a*\w{4}/i
5597     aaaa
5598 \= Expect no match
5599     aaa
5600
5601 /(?:(?<n>foo)|(?<n>bar))\k<n>/dupnames
5602     foofoo
5603     barbar
5604
5605 /(?<n>A)(?:(?<n>foo)|(?<n>bar))\k<n>/dupnames
5606     AfooA
5607     AbarA
5608 \= Expect no match
5609     Afoofoo
5610     Abarbar
5611
5612 /^(\d+)\s+IN\s+SOA\s+(\S+)\s+(\S+)\s*\(\s*$/
5613     1 IN SOA non-sp1 non-sp2(
5614
5615 /^ (?:(?<A>A)|(?'B'B)(?<A>A)) (?('A')x) (?(<B>)y)$/x,dupnames
5616     Ax
5617     BAxy
5618
5619 /^A\xZ/
5620     A\0Z
5621
5622 /^A\o{123}B/
5623     A\123B
5624
5625 / ^ a + + b $ /x
5626     aaaab
5627
5628 / ^ a + #comment
5629   + b $ /x
5630     aaaab
5631
5632 / ^ a + #comment
5633   #comment
5634   + b $ /x
5635     aaaab
5636
5637 / ^ (?> a + ) b $ /x
5638     aaaab
5639
5640 / ^ ( a + ) + + \w $ /x
5641     aaaab
5642
5643 /(?:a\Kb)*+/aftertext
5644     ababc
5645
5646 /(?>a\Kb)*/aftertext
5647     ababc
5648
5649 /(?:a\Kb)*/aftertext
5650     ababc
5651
5652 /(a\Kb)*+/aftertext
5653     ababc
5654
5655 /(a\Kb)*/aftertext
5656     ababc
5657
5658 /(?:x|(?:(xx|yy)+|x|x|x|x|x)|a|a|a)bc/
5659 \= Expect no match
5660     acb
5661
5662 '\A(?:[^\"]++|\"(?:[^\"]*+|\"\")*+\")++'
5663     NON QUOTED \"QUOT\"\"ED\" AFTER \"NOT MATCHED
5664
5665 '\A(?:[^\"]++|\"(?:[^\"]++|\"\")*+\")++'
5666     NON QUOTED \"QUOT\"\"ED\" AFTER \"NOT MATCHED
5667
5668 '\A(?:[^\"]++|\"(?:[^\"]++|\"\")++\")++'
5669     NON QUOTED \"QUOT\"\"ED\" AFTER \"NOT MATCHED
5670
5671 '\A([^\"1]++|[\"2]([^\"3]*+|[\"4][\"5])*+[\"6])++'
5672     NON QUOTED \"QUOT\"\"ED\" AFTER \"NOT MATCHED
5673
5674 /^\w+(?>\s*)(?<=\w)/
5675     test test
5676
5677 /(?P<same>a)(?P<same>b)/g,dupnames
5678     abbaba
5679
5680 /(?P<same>a)(?P<same>b)(?P=same)/g,dupnames
5681     abbaba
5682
5683 /(?P=same)?(?P<same>a)(?P<same>b)/g,dupnames
5684     abbaba
5685
5686 /(?:(?P=same)?(?:(?P<same>a)|(?P<same>b))(?P=same))+/g,dupnames
5687     bbbaaabaabb
5688
5689 /(?:(?P=same)?(?:(?P=same)(?P<same>a)(?P=same)|(?P=same)?(?P<same>b)(?P=same)){2}(?P=same)(?P<same>c)(?P=same)){2}(?P<same>z)?/g,dupnames
5690 \= Expect no match
5691     bbbaaaccccaaabbbcc
5692
5693 /(?P<Name>a)?(?P<Name2>b)?(?(<Name>)c|d)*l/
5694     acl
5695     bdl
5696     adl
5697     bcl
5698
5699 /\sabc/
5700     \x{0b}abc
5701
5702 /[\Qa]\E]+/
5703     aa]]
5704
5705 /[\Q]a\E]+/
5706     aa]]
5707
5708 /A((((((((a))))))))\8B/
5709     AaaB
5710
5711 /A(((((((((a)))))))))\9B/
5712     AaaB
5713
5714 /A[\8\9]B/
5715     A8B
5716     A9B
5717
5718 /(|ab)*?d/
5719    abd
5720    xyd
5721
5722 /(?:((abcd))|(((?:(?:(?:(?:abc|(?:abcdef))))b)abcdefghi)abc)|((*ACCEPT)))/
5723     1234abcd
5724
5725 /(\2|a)(\1)/
5726     aaa
5727
5728 /(\2)(\1)/
5729
5730 "Z*(|d*){216}"
5731
5732 "(?1)(?#?'){8}(a)"
5733     baaaaaaaaac
5734
5735 /((((((((((((x))))))))))))\12/
5736     xx
5737
5738 /A[\8]B[\9]C/
5739     A8B9C
5740
5741 /(?1)()((((((\1++))\x85)+)|))/
5742     \x85\x85
5743
5744 "(?|(\k'Pm')|(?'Pm'))"
5745     abcd
5746
5747 /(?|(aaa)|(b))\g{1}/
5748     aaaaaa
5749     bb
5750
5751 /(?|(aaa)|(b))(?1)/
5752     aaaaaa
5753     baaa
5754 \= Expect no match
5755     bb
5756
5757 /(?|(aaa)|(b))/
5758     xaaa
5759     xbc
5760
5761 /(?|(?'a'aaa)|(?'a'b))\k'a'/
5762     aaaaaa
5763     bb
5764
5765 /(?|(?'a'aaa)|(?'a'b))(?'a'cccc)\k'a'/dupnames
5766     aaaccccaaa
5767     bccccb
5768
5769 # /x does not apply to MARK labels
5770
5771 /x (*MARK:ab cd # comment
5772 ef) x/x,mark
5773     axxz
5774
5775 /(?<=a(B){0}c)X/
5776     acX
5777
5778 /(?<DEFINE>b)(?(DEFINE)(a+))(?&DEFINE)/
5779     bbbb
5780 \= Expect no match
5781     baaab
5782
5783 /(?=.*[A-Z])(?=.*[a-z])(?=.*[0-9])(?=.*[,;:])(?=.{8,16})(?!.*[\s])/
5784     \   Fred:099
5785
5786 /(?=.*X)X$/
5787     \  X
5788
5789 /(?s)(?=.*?)b/
5790     aabc
5791
5792 /(Z)(a)\2{1,2}?(?-i)\1X/i
5793     ZaAAZX
5794
5795 /(?'c')XX(?'YYYYYYYYYYYYYYYYYYYYYYYCl')/
5796
5797 /[s[:digit:]\E-H]+/
5798     s09-H
5799
5800 /[s[:digit:]\Q\E-H]+/
5801     s09-H
5802
5803 /a+(?:|b)a/
5804     aaaa
5805
5806 /X?(R||){3335}/
5807
5808 /(?1)(A(*COMMIT)|B)D/
5809     ABD
5810     XABD
5811     BAD
5812     ABXABD
5813 \= Expect no match
5814     ABX
5815
5816 /(?(DEFINE)(?<m> 1? (?=(?<cond>2)?) 1 2 (?('cond')|3)))
5817     \A
5818     ()
5819     (?&m)
5820     \Z/x
5821     123
5822
5823 /^(?:
5824 (?: A| (1? (?=(?<cond>2)?) (1) 2 (?('cond')|3)) )
5825 (Z)
5826 )+$/x
5827     AZ123Z
5828 \= Expect no match
5829     AZ12Z
5830
5831 /^ (?(DEFINE) ( (?!(a)\2b)..) )   ()(?1)  /x
5832     acb
5833 \= Expect no match
5834     aab
5835
5836 '(?>ab|abab){1,5}?M'
5837     abababababababababababM
5838
5839 '(?>ab|abab){2}?M'
5840     abababM
5841
5842 '((?(?=(a))a)+k)'
5843     bbak
5844
5845 '((?(?=(a))a|)+k)'
5846     bbak
5847
5848 '(?(?!(b))a|b)+k'
5849     ababbalbbadabak
5850
5851 /(?!(b))c|b/
5852     Ab
5853     Ac
5854
5855 /(?=(b))b|c/
5856     Ab
5857     Ac
5858
5859 /^(.|(.)(?1)\2)$/
5860     a
5861     aba
5862     abcba
5863     ababa
5864     abcdcba
5865
5866 /^((.)(?1)\2|.?)$/
5867     a
5868     aba
5869     abba
5870     abcba
5871     ababa
5872     abccba
5873     abcdcba
5874     abcddcba
5875
5876 /^(.)(\1|a(?2))/
5877     bab
5878
5879 /^(.|(.)(?1)?\2)$/
5880     abcba
5881
5882 /^(?(?=(a))abc|def)/
5883     abc
5884
5885 /^(?(?!(a))def|abc)/
5886     abc
5887
5888 /^(?(?=(a)(*ACCEPT))abc|def)/
5889     abc
5890
5891 /^(?(?!(a)(*ACCEPT))def|abc)/
5892     abc
5893
5894 /^(?1)\d{3}(a)/
5895     a123a
5896
5897 # This pattern uses a lot of named subpatterns in order to match email
5898 # addresses in various formats. It's a heavy test for named subpatterns. In the
5899 # <atext> group, slash is coded as \x{2f} so that this pattern can also be
5900 # processed by perltest.sh, which does not cater for an escaped delimiter
5901 # within the pattern. $ within the pattern must also be escaped. All $ and @
5902 # characters in subject strings are escaped so that Perl doesn't interpret them
5903 # as variable insertions and " characters must also be escaped for Perl.
5904
5905 # This set of subpatterns is more or less a direct transliteration of the BNF
5906 # definitions in RFC2822, without any of the obsolete features. The addition of
5907 # a possessive + to the definition of <phrase> reduced the match limit in PCRE2
5908 # from over 5 million to just under 400, and eliminated a very noticeable delay
5909 # when this file was passed to perltest.sh.
5910
5911 /(?ix)(?(DEFINE)
5912 (?<addr_spec>       (?&local_part) \@ (?&domain) )
5913 (?<angle_addr>      (?&CFWS)?+ < (?&addr_spec) > (?&CFWS)?+ )
5914 (?<atext>           [a-z\d!#\$%&'*+-\x{2f}=?^_`{|}~] )
5915 (?<atom>            (?&CFWS)?+ (?&atext)+ (?&CFWS)?+ )
5916 (?<ccontent>        (?&ctext) | (?&quoted_pair) | (?&comment) )
5917 (?<ctext>           [^\x{9}\x{10}\x{13}\x{7f}-\x{ff}\ ()\\] )
5918 (?<comment>         \( (?: (?&FWS)?+ (?&ccontent) )*+ (?&FWS)?+ \) )
5919 (?<CFWS>            (?: (?&FWS)?+ (?&comment) )* (?# NOT possessive)
5920                     (?: (?&FWS)?+ (?&comment) | (?&FWS) ) )
5921 (?<dcontent>        (?&dtext) | (?&quoted_pair) )
5922 (?<display_name>    (?&phrase) )
5923 (?<domain>          (?&dot_atom) | (?&domain_literal) )
5924 (?<domain_literal>  (?&CFWS)?+ \[ (?: (?&FWS)?+ (?&dcontent) )* (?&FWS)?+ \]
5925                     (?&CFWS)?+ )
5926 (?<dot_atom>        (?&CFWS)?+ (?&dot_atom_text) (?&CFWS)?+ )
5927 (?<dot_atom_text>   (?&atext)++ (?: \. (?&atext)++)*+ )
5928 (?<dtext>           [^\x{9}\x{10}\x{13}\x{7f}-\x{ff}\ \[\]\\] )
5929 (?<FWS>             (?: [\t\ ]*+ \n)?+ [\t\ ]++ )
5930 (?<local_part>      (?&dot_atom) | (?&quoted_string)  )
5931 (?<mailbox>         (?&name_addr) | (?&addr_spec) )
5932 (?<name_addr>       (?&display_name)? (?&angle_addr) )
5933 (?<phrase>          (?&word)++ )
5934 (?<qcontent>        (?&qtext) | (?&quoted_pair) )
5935 (?<quoted_pair>     " (?&text) )
5936 (?<quoted_string>   (?&CFWS)?+ " (?: (?&FWS)?+ (?&qcontent))* (?&FWS)?+ "
5937                     (?&CFWS)?+ )
5938 (?<qtext>           [^\x{9}\x{10}\x{13}\x{7f}-\x{ff}\ "\\] )
5939 (?<text>            [^\r\n] )
5940 (?<word>            (?&atom) | (?&quoted_string) )
5941 ) # End DEFINE
5942 ^(?&mailbox)$/
5943     Alan Other <user\@dom.ain>
5944     <user\@dom.ain>
5945     user\@dom.ain
5946     user\@[]
5947     user\@[domain literal]
5948     user\@[domain literal with \"[square brackets\"] inside]
5949     \"A. Other\" <user.1234\@dom.ain> (a comment)
5950     A. Other <user.1234\@dom.ain> (a comment)
5951     \"/s=user/ou=host/o=place/prmd=uu.yy/admd= /c=gb/\"\@x400-re.lay
5952 \= Expect no match
5953     A missing angle <user\@some.where
5954     The quick brown fox
5955
5956 # --------------------------------------------------------------------------
5957
5958 # This pattern uses named groups to match default PCRE2 patterns. It's another
5959 # heavy test for named subpatterns. Once again, code slash as \x{2f} and escape
5960 # $ even in classes so that this works with pcre2test.
5961
5962 /(?sx)(?(DEFINE)
5963
5964 (?<assertion>         (?&simple_assertion) | (?&lookaround) )
5965
5966 (?<atomic_group>      \( \? > (?&regex) \) )
5967
5968 (?<back_reference>    \\ \d+ |
5969                       \\g (?: [+-]?\d+ | \{ (?: [+-]?\d+ | (?&groupname) ) \} ) |
5970                       \\k <(?&groupname)> |
5971                       \\k '(?&groupname)' |
5972                       \\k \{ (?&groupname) \} |
5973                       \( \? P= (?&groupname) \) )
5974
5975 (?<branch>            (?:(?&assertion) |
5976                          (?&callout) |
5977                          (?&comment) |
5978                          (?&option_setting) |
5979                          (?&qualified_item) |
5980                          (?&quoted_string) |
5981                          (?&quoted_string_empty) |
5982                          (?&special_escape) |
5983                          (?&verb)
5984                       )* )
5985
5986 (?<callout>           \(\?C (?: \d+ |
5987                       (?: (?<D>["'`^%\#\$])
5988                         (?: \k'D'\k'D' | (?!\k'D') . )* \k'D' |
5989                       \{ (?: \}\} | [^}]*+ )* \} )
5990                       )? \) )
5991
5992 (?<capturing_group>   \( (?: \? P? < (?&groupname) > | \? ' (?&groupname) ' )?
5993                       (?&regex) \) )
5994
5995 (?<character_class>   \[ \^?+ (?: \] (?&class_item)* | (?&class_item)+ ) \] )
5996
5997 (?<character_type>    (?! \\N\{\w+\} ) \\ [dDsSwWhHvVRN] )
5998
5999 (?<class_item>        (?: \[ : (?:
6000                       alnum|alpha|ascii|blank|cntrl|digit|graph|lower|print|
6001                       punct|space|upper|word|xdigit
6002                       ) : \] |
6003                       (?&quoted_string) |
6004                       (?&quoted_string_empty) |
6005                       (?&escaped_character) |
6006                       (?&character_type) |
6007                       [^]] ) )
6008
6009 (?<comment>           \(\?\# [^)]* \) | (?&quoted_string_empty) | \\E )
6010
6011 (?<condition>         (?: \( [+-]? \d+ \) |
6012                           \( < (?&groupname) > \) |
6013                           \( ' (?&groupname) ' \) |
6014                           \( R \d* \) |
6015                           \( R & (?&groupname) \) |
6016                           \( (?&groupname) \) |
6017                           \( DEFINE \) |
6018                           \( VERSION >?=\d+(?:\.\d\d?)? \) |
6019                           (?&callout)?+ (?&comment)* (?&lookaround) ) )
6020
6021 (?<conditional_group> \(\? (?&condition) (?&branch) (?: \| (?&branch) )? \) )
6022
6023 (?<delimited_regex>   (?<delimiter> [-\x{2f}!"'`=_:;,%&@~]) (?&regex)
6024                       \k'delimiter' .* )
6025
6026 (?<escaped_character> \\ (?: 0[0-7]{1,2} | [0-7]{1,3} | o\{ [0-7]+ \} |
6027                       x \{ (*COMMIT) [[:xdigit:]]* \} | x [[:xdigit:]]{0,2} |
6028                       [aefnrt] | c[[:print:]] |
6029                       [^[:alnum:]] ) )
6030
6031 (?<group>             (?&capturing_group) | (?&non_capturing_group) |
6032                       (?&resetting_group) | (?&atomic_group) |
6033                       (?&conditional_group) )
6034
6035 (?<groupname>         [a-zA-Z_]\w* )
6036
6037 (?<literal_character> (?! (?&range_qualifier) ) [^[()|*+?.\$\\] )
6038
6039 (?<lookaround>        \(\? (?: = | ! | <= | <! ) (?&regex) \) )
6040
6041 (?<non_capturing_group> \(\? [iJmnsUx-]* : (?&regex) \) )
6042
6043 (?<option_setting>    \(\? [iJmnsUx-]* \) )
6044
6045 (?<qualified_item>    (?:\. |
6046                          (?&lookaround) |
6047                          (?&back_reference) |
6048                          (?&character_class) |
6049                          (?&character_type) |
6050                          (?&escaped_character) |
6051                          (?&group) |
6052                          (?&subroutine_call) |
6053                          (?&literal_character) |
6054                          (?&quoted_string)
6055                       ) (?&comment)? (?&qualifier)? )
6056
6057 (?<qualifier>         (?: [?*+] | (?&range_qualifier) ) [+?]? )
6058
6059 (?<quoted_string>     (?: \\Q (?: (?!\\E | \k'delimiter') . )++ (?: \\E | ) ) )
6060
6061 (?<quoted_string_empty>  \\Q\\E )
6062
6063 (?<range_qualifier>   \{ (?: \d+ (?: , \d* )? | , \d+ ) \} )
6064
6065 (?<regex>             (?&start_item)* (?&branch) (?: \| (?&branch) )* )
6066
6067 (?<resetting_group>   \( \? \| (?&regex) \) )
6068
6069 (?<simple_assertion>  \^ | \$ | \\A | \\b | \\B | \\G | \\z | \\Z )
6070
6071 (?<special_escape>    \\K )
6072
6073 (?<start_item>        \( \* (?:
6074                       ANY |
6075                       ANYCRLF |
6076                       BSR_ANYCRLF |
6077                       BSR_UNICODE |
6078                       CR |
6079                       CRLF |
6080                       LF |
6081                       LIMIT_MATCH=\d+ |
6082                       LIMIT_DEPTH=\d+ |
6083                       LIMIT_HEAP=\d+ |
6084                       NOTEMPTY |
6085                       NOTEMPTY_ATSTART |
6086                       NO_AUTO_POSSESS |
6087                       NO_DOTSTAR_ANCHOR |
6088                       NO_JIT |
6089                       NO_START_OPT |
6090                       NUL |
6091                       UTF |
6092                       UCP ) \) )
6093
6094 (?<subroutine_call>   (?: \(\?R\) | \(\?[+-]?\d+\) |
6095                       \(\? (?: & | P> ) (?&groupname) \) |
6096                       \\g < (?&groupname) > |
6097                       \\g ' (?&groupname) ' |
6098                       \\g < [+-]? \d+ > |
6099                       \\g ' [+-]? \d+ ) )
6100
6101 (?<verb>              \(\* (?: ACCEPT | FAIL | F | COMMIT |
6102                       (?:MARK)?:(?&verbname) |
6103                       (?:PRUNE|SKIP|THEN) (?: : (?&verbname)? )? ) \) )
6104
6105 (?<verbname>          [^)]+ )
6106
6107 ) # End DEFINE
6108 # Kick it all off...
6109 ^(?&delimited_regex)$/subject_literal,jitstack=256
6110     /^(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)\11*(\3\4)\1(?#)2$/
6111     /(cat(a(ract|tonic)|erpillar)) \1()2(3)/
6112     /^From +([^ ]+) +[a-zA-Z][a-zA-Z][a-zA-Z] +[a-zA-Z][a-zA-Z][a-zA-Z] +[0-9]?[0-9] +[0-9][0-9]:[0-9][0-9]/
6113     /^From\s+\S+\s+([a-zA-Z]{3}\s+){2}\d{1,2}\s+\d\d:\d\d/
6114     /<tr([\w\W\s\d][^<>]{0,})><TD([\w\W\s\d][^<>]{0,})>([\d]{0,}\.)(.*)((<BR>([\w\W\s\d][^<>]{0,})|[\s]{0,}))<\/a><\/TD><TD([\w\W\s\d][^<>]{0,})>([\w\W\s\d][^<>]{0,})<\/TD><TD([\w\W\s\d][^<>]{0,})>([\w\W\s\d][^<>]{0,})<\/TD><\/TR>/is
6115     /^(?(DEFINE) (?<A> a) (?<B> b) )  (?&A) (?&B) /
6116     /(?(DEFINE)(?<byte>2[0-4]\d|25[0-5]|1\d\d|[1-9]?\d))\b(?&byte)(\.(?&byte)){3}/
6117     /\b(?&byte)(\.(?&byte)){3}(?(DEFINE)(?<byte>2[0-4]\d|25[0-5]|1\d\d|[1-9]?\d))/
6118     /^(\w++|\s++)*$/
6119     /a+b?(*THEN)c+(*FAIL)/
6120     /(A (A|B(*ACCEPT)|C) D)(E)/x
6121     /^\W*+(?:((.)\W*+(?1)\W*+\2|)|((.)\W*+(?3)\W*+\4|\W*+.\W*+))\W*+$/i
6122     /A(*PRUNE)B(*SKIP)C(*THEN)D(*COMMIT)E(*F)F(*FAIL)G(?!)H(*ACCEPT)I/B
6123     /(?C`a``b`)(?C'a''b')(?C"a""b")(?C^a^^b^)(?C%a%%b%)(?C#a##b#)(?C$a$$b$)(?C{a}}b})/B,callout_info
6124     /(?sx)(?(DEFINE)(?<assertion> (?&simple_assertion) | (?&lookaround) )(?<atomic_group> \( \? > (?&regex) \) )(?<back_reference> \\ \d+ | \\g (?: [+-]?\d+ | \{ (?: [+-]?\d+ | (?&groupname) ) \} ) | \\k <(?&groupname)> | \\k '(?&groupname)' | \\k \{ (?&groupname) \} | \( \? P= (?&groupname) \) )(?<branch> (?:(?&assertion) | (?&callout) | (?&comment) | (?&option_setting) | (?&qualified_item) | (?&quoted_string) | (?&quoted_string_empty) | (?&special_escape) | (?&verb) )* )(?<callout> \(\?C (?: \d+ | (?: (?<D>["'`^%\#\$]) (?: \k'D'\k'D' | (?!\k'D') . )* \k'D' | \{ (?: \}\} | [^}]*+ )* \} ) )? \) )(?<capturing_group> \( (?: \? P? < (?&groupname) > | \? ' (?&groupname) ' )? (?&regex) \) )(?<character_class> \[ \^?+ (?: \] (?&class_item)* | (?&class_item)+ ) \] )(?<character_type> (?! \\N\{\w+\} ) \\ [dDsSwWhHvVRN] )(?<class_item> (?: \[ : (?: alnum|alpha|ascii|blank|cntrl|digit|graph|lower|print| punct|space|upper|word|xdigit ) : \] | (?&quoted_string) | (?&quoted_string_empty) | (?&escaped_character) | (?&character_type) | [^]] ) )(?<comment> \(\?\# [^)]* \) | (?&quoted_string_empty) | \\E )(?<condition> (?: \( [+-]? \d+ \) | \( < (?&groupname) > \) | \( ' (?&groupname) ' \) | \( R \d* \) | \( R & (?&groupname) \) | \( (?&groupname) \) | \( DEFINE \) | \( VERSION >?=\d+(?:\.\d\d?)? \) | (?&callout)?+ (?&comment)* (?&lookaround) ) )(?<conditional_group> \(\? (?&condition) (?&branch) (?: \| (?&branch) )? \) )(?<delimited_regex> (?<delimiter> [-\x{2f}!"'`=_:;,%&@~]) (?&regex) \k'delimiter' .* )(?<escaped_character> \\ (?: 0[0-7]{1,2} | [0-7]{1,3} | o\{ [0-7]+ \} | x \{ (*COMMIT) [[:xdigit:]]* \} | x [[:xdigit:]]{0,2} | [aefnrt] | c[[:print:]] | [^[:alnum:]] ) )(?<group> (?&capturing_group) | (?&non_capturing_group) | (?&resetting_group) | (?&atomic_group) | (?&conditional_group) )(?<groupname> [a-zA-Z_]\w* )(?<literal_character> (?! (?&range_qualifier) ) [^[()|*+?.\$\\] )(?<lookaround> \(\? (?: = | ! | <= | <! ) (?&regex) \) )(?<non_capturing_group> \(\? [iJmnsUx-]* : (?&regex) \) )(?<option_setting> \(\? [iJmnsUx-]* \) )(?<qualified_item> (?:\. | (?&lookaround) | (?&back_reference) | (?&character_class) | (?&character_type) | (?&escaped_character) | (?&group) | (?&subroutine_call) | (?&literal_character) | (?&quoted_string) ) (?&comment)? (?&qualifier)? )(?<qualifier> (?: [?*+] | (?&range_qualifier) ) [+?]? )(?<quoted_string> (?: \\Q (?: (?!\\E | \k'delimiter') . )++ (?: \\E | ) ) ) (?<quoted_string_empty> \\Q\\E ) (?<range_qualifier> \{ (?: \d+ (?: , \d* )? | , \d+ ) \} )(?<regex> (?&start_item)* (?&branch) (?: \| (?&branch) )* )(?<resetting_group> \( \? \| (?&regex) \) )(?<simple_assertion> \^ | \$ | \\A | \\b | \\B | \\G | \\z | \\Z )(?<special_escape> \\K )(?<start_item> \( \* (?: ANY | ANYCRLF | BSR_ANYCRLF | BSR_UNICODE | CR | CRLF | LF | LIMIT_MATCH=\d+ | LIMIT_DEPTH=\d+ | LIMIT_HEAP=\d+ | NOTEMPTY | NOTEMPTY_ATSTART | NO_AUTO_POSSESS | NO_DOTSTAR_ANCHOR | NO_JIT | NO_START_OPT | NUL | UTF | UCP ) \) )(?<subroutine_call> (?: \(\?R\) | \(\?[+-]?\d+\) | \(\? (?: & | P> ) (?&groupname) \) | \\g < (?&groupname) > | \\g ' (?&groupname) ' | \\g < [+-]? \d+ > | \\g ' [+-]? \d+ ) )(?<verb> \(\* (?: ACCEPT | FAIL | F | COMMIT | (?:MARK)?:(?&verbname) | (?:PRUNE|SKIP|THEN) (?: : (?&verbname)? )? ) \) )(?<verbname> [^)]+ ))^(?&delimited_regex)$/
6125 \= Expect no match
6126     /((?(?C'')\QX\E(?!((?(?C'')(?!X=X));=)r*X=X));=)/
6127     /(?:(?(2y)a|b)(X))+/
6128     /a(*MARK)b/
6129     /a(*CR)b/
6130     /(?P<abn>(?P=abn)(?<badstufxxx)/
6131
6132 # --------------------------------------------------------------------------
6133
6134 /<(?x:[a b])>/xx
6135     < >
6136
6137 /<(?:[a b])>/xx
6138     < >
6139
6140 /<(?xxx:[a b])>/
6141     < >
6142
6143 /<(?-x:[a b])>/xx
6144     < >
6145
6146 /[[:digit:]-]+/
6147     12-24
6148
6149 /((?<=((*ACCEPT)) )\1?\b) /
6150 \= Expect no match
6151     ((?<=((*ACCEPT)) )\\1?\\b)\x20
6152
6153 /((?<=((*ACCEPT))X)\1?Y)\1/
6154     XYYZ
6155
6156 /((?<=((*ACCEPT))X)\1?Y(*ACCEPT))\1/
6157     XYYZ
6158
6159 /(?(DEFINE)(?<optional_a>a?)X)^(?&optional_a)a$/
6160     aa
6161     a
6162
6163 /^(a?)b(?1)a/
6164     abaa
6165     aba
6166     baa
6167     ba
6168
6169 /^(a?)+b(?1)a/
6170     abaa
6171     aba
6172     baa
6173     ba
6174
6175 /^(a?)++b(?1)a/
6176     abaa
6177     aba
6178     baa
6179     ba
6180
6181 /^(a?)+b/
6182     b
6183     ab
6184     aaab
6185
6186 /(?=a+)a(a+)++b/
6187     aab
6188
6189 /(?<=\G.)/g,aftertext
6190     abc
6191
6192 /(?<=(?=.)?)/
6193
6194 /(?<=(?=.)?+)/
6195
6196 /(?<=(?=.)*)/
6197
6198 /(?<=(?=.){4,5})/
6199
6200 /(?<=(?=.){4,5}x)/
6201
6202 /a(?=.(*:X))(*SKIP:X)(*F)|(.)/
6203     abc
6204
6205 /a(?>(*:X))(*SKIP:X)(*F)|(.)/
6206     abc
6207
6208 /a(?:(*:X))(*SKIP:X)(*F)|(.)/
6209     abc
6210
6211 #pattern no_start_optimize
6212
6213 /(?>a(*:1))(?>b(*:1))(*SKIP:1)x|.*/
6214     abc
6215
6216 /(?>a(*:1))(?>b)(*SKIP:1)x|.*/
6217     abc
6218
6219 #subject mark
6220
6221 /a(*ACCEPT:X)b/
6222     abc
6223
6224 /(?=a(*ACCEPT:QQ)bc)axyz/
6225     axyz
6226
6227 /(?(DEFINE)(a(*ACCEPT:X)))(?1)b/
6228     abc
6229
6230 /a(*F:X)b/
6231     abc
6232
6233 /(?(DEFINE)(a(*F:X)))(?1)b/
6234     abc
6235
6236 /a(*COMMIT:X)b/
6237     abc
6238
6239 /(?(DEFINE)(a(*COMMIT:X)))(?1)b/
6240     abc
6241
6242 /a+(*:Z)b(*COMMIT:X)(*SKIP:Z)c|.*/
6243     aaaabd
6244
6245 /a+(*:Z)b(*COMMIT:X)(*SKIP:X)c|.*/
6246     aaaabd
6247
6248 /a(*COMMIT:X)b/
6249     axabc
6250
6251 #pattern -no_start_optimize
6252 #subject -mark
6253
6254 /(.COMMIT)(*COMMIT::::::::::interal error:::)/
6255
6256 /(*COMMIT:ÿÿ)/
6257
6258 /(*COMMIT:]w)/
6259
6260 /(?i)A(?^)B(?^x:C D)(?^i)e f/
6261     aBCDE F
6262 \= Expect no match
6263     aBCDEF
6264     AbCDe f
6265
6266 # End of testinput1