4232         UnicodeString perlExpr = fields[3];  in PerlTests()  local
4234         groupsMat->reset(perlExpr);  in PerlTests()
4235         cgMat->reset(perlExpr);  in PerlTests()
4238         while (perlExpr.length() > 0) {  in PerlTests()
4241             groupsMat->reset(perlExpr);  in PerlTests()
4242             cgMat->reset(perlExpr);  in PerlTests()
4245             if (perlExpr.startsWith("$&")) {  in PerlTests()
4247                 perlExpr.remove(0, 2);  in PerlTests()
4265                 perlExpr.remove(0, groupsMat->end(status));  in PerlTests()
4277                 perlExpr.remove(0, cgMat->end(status));  in PerlTests()
4280             else if (perlExpr.startsWith("@-")) {  in PerlTests()
4288                 perlExpr.remove(0, 2);  in PerlTests()
4291             else if (perlExpr.startsWith("@+")) {  in PerlTests()
4299                 perlExpr.remove(0, 2);  in PerlTests()
4302 …else if (perlExpr.startsWith(UNICODE_STRING_SIMPLE("\\"))) {    // \Escape.  Take following char a…  in PerlTests()
4304                 if (perlExpr.length() > 1) {  in PerlTests()
4305                     perlExpr.remove(0, 1);  // Remove the '\', but only if not last char.  in PerlTests()
4307                 UChar c = perlExpr.charAt(0);  in PerlTests()
4313                 perlExpr.remove(0, 1);  in PerlTests()
4320                 resultString.append(perlExpr.charAt(0));  in PerlTests()
4321                 perlExpr.remove(0, 1);  in PerlTests()
4629         UnicodeString perlExpr = fields[3];  in PerlTestsUTF8()  local
4631         while (perlExpr.length() > 0) {  in PerlTestsUTF8()
4632             groupsMat->reset(perlExpr);  in PerlTestsUTF8()
4633             cgMat->reset(perlExpr);  in PerlTestsUTF8()
4635             if (perlExpr.startsWith("$&")) {  in PerlTestsUTF8()
4637                 perlExpr.remove(0, 2);  in PerlTestsUTF8()
4655                 perlExpr.remove(0, groupsMat->end(status));  in PerlTestsUTF8()
4667                 perlExpr.remove(0, cgMat->end(status));  in PerlTestsUTF8()
4670             else if (perlExpr.startsWith("@-")) {  in PerlTestsUTF8()
4678                 perlExpr.remove(0, 2);  in PerlTestsUTF8()
4681             else if (perlExpr.startsWith("@+")) {  in PerlTestsUTF8()
4689                 perlExpr.remove(0, 2);  in PerlTestsUTF8()
4692 …else if (perlExpr.startsWith(UNICODE_STRING_SIMPLE("\\"))) {    // \Escape.  Take following char a…  in PerlTestsUTF8()
4694                 if (perlExpr.length() > 1) {  in PerlTestsUTF8()
4695                     perlExpr.remove(0, 1);  // Remove the '\', but only if not last char.  in PerlTestsUTF8()
4697                 UChar c = perlExpr.charAt(0);  in PerlTestsUTF8()
4703                 perlExpr.remove(0, 1);  in PerlTestsUTF8()
4710                 resultString.append(perlExpr.charAt(0));  in PerlTestsUTF8()
4711                 perlExpr.remove(0, 1);  in PerlTestsUTF8()