From 30d5aa203db550d47e267c401c1e23a87f0ebc87 Mon Sep 17 00:00:00 2001
From: Carson Riker <c@rsonriker.com>
Date: Fri, 9 Oct 2020 10:45:42 -0400
Subject: [PATCH 2/3] Added highlighted for curly-brace based sregexes

---
 rc/filetype/perl.kak | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rc/filetype/perl.kak b/rc/filetype/perl.kak
index a7dcaa2a..9c36b160 100644
--- a/rc/filetype/perl.kak
+++ b/rc/filetype/perl.kak
@@ -44,6 +44,7 @@ add-highlighter shared/perl/comment        region (?<!\$)(?<!\\)#   $
 
 add-highlighter shared/perl/regex          region m?(?<!/)(?<!qr)/[^/\n]+(?=/)  /\w?   fill meta
 add-highlighter shared/perl/sregex         region s/[^/\n]+/[^/\n]+(?=/) /\w?          fill meta
+add-highlighter shared/perl/bregex         region s\{[^\}\n]+\}\{[^\}\n]+(?=\}) /\w?   fill meta
 
 add-highlighter shared/perl/quote_brace    region -recurse \{ \bq[qrwx]?\{ \}          fill string
 add-highlighter shared/perl/quote_paren    region -recurse \( \bq[qrwx]?\( \)          fill string

From 21fbda7c6845ba8de7feb714e57c0571bb5b2143 Mon Sep 17 00:00:00 2001
From: Carson Riker <c@rsonriker.com>
Date: Fri, 9 Oct 2020 13:25:26 -0400
Subject: [PATCH 3/3] Fixed ending of region, as per @krobelus

---
 rc/filetype/perl.kak | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rc/filetype/perl.kak b/rc/filetype/perl.kak
index 9c36b160..29af2fa2 100644
--- a/rc/filetype/perl.kak
+++ b/rc/filetype/perl.kak
@@ -44,7 +44,7 @@ add-highlighter shared/perl/comment        region (?<!\$)(?<!\\)#   $
 
 add-highlighter shared/perl/regex          region m?(?<!/)(?<!qr)/[^/\n]+(?=/)  /\w?   fill meta
 add-highlighter shared/perl/sregex         region s/[^/\n]+/[^/\n]+(?=/) /\w?          fill meta
-add-highlighter shared/perl/bregex         region s\{[^\}\n]+\}\{[^\}\n]+(?=\}) /\w?   fill meta
+add-highlighter shared/perl/bregex         region s\{[^\}\n]+\}\{[^\}\n]+(?=\}) /}     fill meta
 
 add-highlighter shared/perl/quote_brace    region -recurse \{ \bq[qrwx]?\{ \}          fill string
 add-highlighter shared/perl/quote_paren    region -recurse \( \bq[qrwx]?\( \)          fill string