From 55e4ff69729eaa501eebe22f8ff4142ce230fbea Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stig-=C3=98rjan=20Smelror?= <smelror@gmail.com>
Date: Thu, 1 Feb 2024 11:36:01 +0100
Subject: [PATCH] _html: Ask Perl to parse every and only QStags

---
 qsgen2 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/qsgen2 b/qsgen2
index ee4136a..c389327 100755
--- a/qsgen2
+++ b/qsgen2
@@ -803,7 +803,7 @@ function _html() {
     if ${debug}; then _msg debug "_html: Converting QStags in content"; fi
 
     # Convert QStags to HTML using Perl, strictly matching the QStags list
-    local html_content=$(echo "${content}" | perl -pe '
+    local html_content=$(echo "${content}" | perl  -0777 -pe '
         BEGIN {
             # Define a hash of QStags to their HTML equivalents
             %qstags = (
@@ -843,7 +843,7 @@ function _html() {
         }
         while (my ($key, $value) = each %qstags) {
             $key = quotemeta($key); # Escape special characters in QStags
-            s/(?<!\S)$key\b/$value/gi;
+            s/(?<!\S)\Q$key\E\b/$value/g;
         }
     ');