diff --git a/src/basic-languages/perl/perl.ts b/src/basic-languages/perl/perl.ts
index f6a323c7..a7c25a45 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']
 		],