From 753e3d17def46e43c3702c75f94bb18b43b60f8e Mon Sep 17 00:00:00 2001
From: Frank LENORMAND <lenormand@pkcc-tb.ru>
Date: Thu, 29 Oct 2015 10:00:23 +0300
Subject: [PATCH] Simplify the highlighted regions, fix the ones remaining

---
 rc/perl.kak | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/rc/perl.kak b/rc/perl.kak
index 32f5c5d3..463d8cd7 100644
--- a/rc/perl.kak
+++ b/rc/perl.kak
@@ -16,13 +16,10 @@ hook global BufCreate .*\.pl %{
 # ‾‾‾‾‾‾‾‾‾‾‾‾
 
 addhl -group / regions -default code perl \
-    command '(?:[^\$]|^)`' '`' '' \
-    command '\<qx/' (?<!\\)(\\\\)*/ '' \
-    double_string '(?:[^\$]|^)"' (?<!\\)(\\\\)*" '' \
-    double_string '\<q(q|w)/' (?<!\\)(\\\\)*/ '' \
-    single_string "(?:[^\$]|^)'" (?<!\\)(\\\\)*' '' \
-    single_string "\<q/" (?<!\\)(\\\\)*/ '' \
-    comment '(?:[^\$]|^)#' $ ''
+    command '(?<!\$)`' (?<!\\)(\\\\)*` '' \
+    double_string '(?<!\$)"' (?<!\\)(\\\\)*" '' \
+    single_string "(?<!\$)'" (?<!\\)(\\\\)*' '' \
+    comment '(?<!\$)#' $ ''
 
 addhl -group /perl/command fill magenta
 addhl -group /perl/double_string fill string