From 504d5b4c2b4ba79e0a72b81692e1ca73320b1220 Mon Sep 17 00:00:00 2001
From: Deepak kudi <deepakkudi23@adsl-172-10-9-116.dsl.sndg02.sbcglobal.net>
Date: Thu, 4 Jun 2026 11:24:59 +0530
Subject: [PATCH] Fix Perl regex quantifier tokenization

---
 src/languages/definitions/perl/perl.test.ts | 12 ++++++++++++
 src/languages/definitions/perl/perl.ts      |  1 +
 2 files changed, 13 insertions(+)

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'],
 			[
 				/./,
 				{