From d18f6db7bae409d11d035520a0a1a08cfe5af092 Mon Sep 17 00:00:00 2001
From: Jin Cao <jincao1@users.noreply.github.com>
Date: Wed, 29 May 2024 22:23:52 -0400
Subject: [PATCH] Update Perl stringBody

Backslash escapes are valid escapes in a single quote string body in Perl.
---
 src/basic-languages/perl/perl.ts | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/basic-languages/perl/perl.ts b/src/basic-languages/perl/perl.ts
index 883d34ea78..f6a323c74a 100644
--- a/src/basic-languages/perl/perl.ts
+++ b/src/basic-languages/perl/perl.ts
@@ -534,7 +534,7 @@ export const language = <languages.IMonarchLanguage>{
 
 		stringBody: [
 			[/'/, 'string', '@popall'],
-			[/\\'/, 'string.escape'],
+			[/\\'|\\\\/, 'string.escape'],
 			[/./, 'string']
 		],