4240         UnicodeString perlExpr = fields[3];  in PerlTests()  local
4242         groupsMat->reset(perlExpr);  in PerlTests()
4243         cgMat->reset(perlExpr);  in PerlTests()
4246         while (perlExpr.length() > 0) {  in PerlTests()
4249             groupsMat->reset(perlExpr);  in PerlTests()
4250             cgMat->reset(perlExpr);  in PerlTests()
4253             if (perlExpr.startsWith("$&")) {  in PerlTests()
4255                 perlExpr.remove(0, 2);  in PerlTests()
4273                 perlExpr.remove(0, groupsMat->end(status));  in PerlTests()
4285                 perlExpr.remove(0, cgMat->end(status));  in PerlTests()
4288             else if (perlExpr.startsWith("@-")) {  in PerlTests()
4296                 perlExpr.remove(0, 2);  in PerlTests()
4299             else if (perlExpr.startsWith("@+")) {  in PerlTests()
4307                 perlExpr.remove(0, 2);  in PerlTests()
4310 …else if (perlExpr.startsWith(UNICODE_STRING_SIMPLE("\\"))) {    // \Escape.  Take following char a…  in PerlTests()
4312                 if (perlExpr.length() > 1) {  in PerlTests()
4313                     perlExpr.remove(0, 1);  // Remove the '\', but only if not last char.  in PerlTests()
4315                 UChar c = perlExpr.charAt(0);  in PerlTests()
4321                 perlExpr.remove(0, 1);  in PerlTests()
4328                 resultString.append(perlExpr.charAt(0));  in PerlTests()
4329                 perlExpr.remove(0, 1);  in PerlTests()
4635         UnicodeString perlExpr = fields[3];  in PerlTestsUTF8()  local
4637         while (perlExpr.length() > 0) {  in PerlTestsUTF8()
4638             groupsMat->reset(perlExpr);  in PerlTestsUTF8()
4639             cgMat->reset(perlExpr);  in PerlTestsUTF8()
4641             if (perlExpr.startsWith("$&")) {  in PerlTestsUTF8()
4643                 perlExpr.remove(0, 2);  in PerlTestsUTF8()
4661                 perlExpr.remove(0, groupsMat->end(status));  in PerlTestsUTF8()
4673                 perlExpr.remove(0, cgMat->end(status));  in PerlTestsUTF8()
4676             else if (perlExpr.startsWith("@-")) {  in PerlTestsUTF8()
4684                 perlExpr.remove(0, 2);  in PerlTestsUTF8()
4687             else if (perlExpr.startsWith("@+")) {  in PerlTestsUTF8()
4695                 perlExpr.remove(0, 2);  in PerlTestsUTF8()
4698 …else if (perlExpr.startsWith(UNICODE_STRING_SIMPLE("\\"))) {    // \Escape.  Take following char a…  in PerlTestsUTF8()
4700                 if (perlExpr.length() > 1) {  in PerlTestsUTF8()
4701                     perlExpr.remove(0, 1);  // Remove the '\', but only if not last char.  in PerlTestsUTF8()
4703                 UChar c = perlExpr.charAt(0);  in PerlTestsUTF8()
4709                 perlExpr.remove(0, 1);  in PerlTestsUTF8()
4716                 resultString.append(perlExpr.charAt(0));  in PerlTestsUTF8()
4717                 perlExpr.remove(0, 1);  in PerlTestsUTF8()