- /-- Because of problems with Perl 5.6 in handling UTF-8 vs non UTF-8 --/
- /-- strings automatically, do not use the x{} construct except with --/
- /-- patterns that have the /8 option set, and don't use them without! --/
- /a.b/8
- acb
- ax7fb
- ax{100}b
- *** Failers
- anb
- /a(.{3})b/8
- ax{4000}xyb
- ax{4000}x7fyb
- ax{4000}x{100}yb
- *** Failers
- ax{4000}b
- acncb
- /a(.*?)(.)/
- axc0x88b
- /a(.*?)(.)/8
- ax{100}b
- /a(.*)(.)/
- axc0x88b
- /a(.*)(.)/8
- ax{100}b
- /a(.)(.)/
- axc0x92bcd
- /a(.)(.)/8
- ax{240}bcd
- /a(.?)(.)/
- axc0x92bcd
- /a(.?)(.)/8
- ax{240}bcd
- /a(.??)(.)/
- axc0x92bcd
- /a(.??)(.)/8
- ax{240}bcd
- /a(.{3})b/8
- ax{1234}xyb
- ax{1234}x{4321}yb
- ax{1234}x{4321}x{3412}b
- *** Failers
- ax{1234}b
- acncb
- /a(.{3,})b/8
- ax{1234}xyb
- ax{1234}x{4321}yb
- ax{1234}x{4321}x{3412}b
- axxxxbcdefghijb
- ax{1234}x{4321}x{3412}x{3421}b
- *** Failers
- ax{1234}b
- /a(.{3,}?)b/8
- ax{1234}xyb
- ax{1234}x{4321}yb
- ax{1234}x{4321}x{3412}b
- axxxxbcdefghijb
- ax{1234}x{4321}x{3412}x{3421}b
- *** Failers
- ax{1234}b
- /a(.{3,5})b/8
- ax{1234}xyb
- ax{1234}x{4321}yb
- ax{1234}x{4321}x{3412}b
- axxxxbcdefghijb
- ax{1234}x{4321}x{3412}x{3421}b
- axbxxbcdefghijb
- axxxxxbcdefghijb
- *** Failers
- ax{1234}b
- axxxxxxbcdefghijb
- /a(.{3,5}?)b/8
- ax{1234}xyb
- ax{1234}x{4321}yb
- ax{1234}x{4321}x{3412}b
- axxxxbcdefghijb
- ax{1234}x{4321}x{3412}x{3421}b
- axbxxbcdefghijb
- axxxxxbcdefghijb
- *** Failers
- ax{1234}b
- axxxxxxbcdefghijb
- /^[ax{c0}]/8
- *** Failers
- x{100}
- /(?<=aXb)cd/8
- aXbcd
- /(?<=ax{100}b)cd/8
- ax{100}bcd
- /(?<=ax{100000}b)cd/8
- ax{100000}bcd
- /(?:x{100}){3}b/8
- x{100}x{100}x{100}b
- *** Failers
- x{100}x{100}b
- / End of testinput5 /