4188         UnicodeString perlExpr = fields[3];  in PerlTests()  local
4190         groupsMat->reset(perlExpr);  in PerlTests()
4191         cgMat->reset(perlExpr);  in PerlTests()
4194         while (perlExpr.length() > 0) {  in PerlTests()
4197             groupsMat->reset(perlExpr);  in PerlTests()
4198             cgMat->reset(perlExpr);  in PerlTests()
4201             if (perlExpr.startsWith("$&")) {  in PerlTests()
4203                 perlExpr.remove(0, 2);  in PerlTests()
4221                 perlExpr.remove(0, groupsMat->end(status));  in PerlTests()
4233                 perlExpr.remove(0, cgMat->end(status));  in PerlTests()
4236             else if (perlExpr.startsWith("@-")) {  in PerlTests()
4244                 perlExpr.remove(0, 2);  in PerlTests()
4247             else if (perlExpr.startsWith("@+")) {  in PerlTests()
4255                 perlExpr.remove(0, 2);  in PerlTests()
4258 …else if (perlExpr.startsWith(UNICODE_STRING_SIMPLE("\\"))) {    // \Escape.  Take following char a…  in PerlTests()
4260                 if (perlExpr.length() > 1) {  in PerlTests()
4261                     perlExpr.remove(0, 1);  // Remove the '\', but only if not last char.  in PerlTests()
4263                 UChar c = perlExpr.charAt(0);  in PerlTests()
4269                 perlExpr.remove(0, 1);  in PerlTests()
4276                 resultString.append(perlExpr.charAt(0));  in PerlTests()
4277                 perlExpr.remove(0, 1);  in PerlTests()
4583         UnicodeString perlExpr = fields[3];  in PerlTestsUTF8()  local
4585         while (perlExpr.length() > 0) {  in PerlTestsUTF8()
4586             groupsMat->reset(perlExpr);  in PerlTestsUTF8()
4587             cgMat->reset(perlExpr);  in PerlTestsUTF8()
4589             if (perlExpr.startsWith("$&")) {  in PerlTestsUTF8()
4591                 perlExpr.remove(0, 2);  in PerlTestsUTF8()
4609                 perlExpr.remove(0, groupsMat->end(status));  in PerlTestsUTF8()
4621                 perlExpr.remove(0, cgMat->end(status));  in PerlTestsUTF8()
4624             else if (perlExpr.startsWith("@-")) {  in PerlTestsUTF8()
4632                 perlExpr.remove(0, 2);  in PerlTestsUTF8()
4635             else if (perlExpr.startsWith("@+")) {  in PerlTestsUTF8()
4643                 perlExpr.remove(0, 2);  in PerlTestsUTF8()
4646 …else if (perlExpr.startsWith(UNICODE_STRING_SIMPLE("\\"))) {    // \Escape.  Take following char a…  in PerlTestsUTF8()
4648                 if (perlExpr.length() > 1) {  in PerlTestsUTF8()
4649                     perlExpr.remove(0, 1);  // Remove the '\', but only if not last char.  in PerlTestsUTF8()
4651                 UChar c = perlExpr.charAt(0);  in PerlTestsUTF8()
4657                 perlExpr.remove(0, 1);  in PerlTestsUTF8()
4664                 resultString.append(perlExpr.charAt(0));  in PerlTestsUTF8()
4665                 perlExpr.remove(0, 1);  in PerlTestsUTF8()