1
/-- Because of problems with Perl 5.6 in handling UTF-8 vs non UTF-8 --/
2
/-- strings automatically, do not use the \x{} construct except with --/
3
/-- patterns that have the /8 option set, and don't use them without! --/
53
a\x{1234}\x{4321}\x{3412}b
61
a\x{1234}\x{4321}\x{3412}b
63
a\x{1234}\x{4321}\x{3412}\x{3421}b
70
a\x{1234}\x{4321}\x{3412}b
72
a\x{1234}\x{4321}\x{3412}\x{3421}b
79
a\x{1234}\x{4321}\x{3412}b
81
a\x{1234}\x{4321}\x{3412}\x{3421}b
91
a\x{1234}\x{4321}\x{3412}b
93
a\x{1234}\x{4321}\x{3412}\x{3421}b
110
/(?<=a\x{100000}b)cd/8
114
\x{100}\x{100}\x{100}b
118
/ End of testinput5 /