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 /