diff --git a/src/languages/definitions/perl/perl.test.ts b/src/languages/definitions/perl/perl.test.ts
index cb7934750f..4bcdd186bb 100644
--- a/src/languages/definitions/perl/perl.test.ts
+++ b/src/languages/definitions/perl/perl.test.ts
@@ -329,6 +329,18 @@ testTokenization('perl', [
 		}
 	],
 
+	[
+		{
+			line: 'qr{\\\\W{1,10}}',
+			tokens: [
+				{ startIndex: 0, type: 'regexp.delim.perl' },
+				{ startIndex: 3, type: 'regexp.escape.perl' },
+				{ startIndex: 5, type: 'regexp.perl' },
+				{ startIndex: 12, type: 'regexp.delim.perl' }
+			]
+		}
+	],
+
 	// Operators
 	[
 		{
diff --git a/src/languages/definitions/perl/perl.ts b/src/languages/definitions/perl/perl.ts
index 5e9e86811a..73fc8f2440 100644
--- a/src/languages/definitions/perl/perl.ts
+++ b/src/languages/definitions/perl/perl.ts
@@ -603,6 +603,7 @@ export const language = <languages.IMonarchLanguage>{
 		qregexp: [
 			{ include: '@variables' },
 			[/\\./, 'regexp.escape'],
+			[/\{\d+(?:,\d*)?\}/, 'regexp'],
 			[
 				/./,
 				{