diff --git a/perl.xml b/perl.xml
index fc2fd41..21e24e1 100644
--- a/perl.xml
+++ b/perl.xml
@@ -660,3 +660,4 @@
<Detect2Chars attribute="Pattern Character Class" context="#stay" char="\" char1="]" />
- <RegExpr attribute="Pattern Character Class" context="#stay" String="\[:^?[a-z]+:\]" />
+ <!-- JGM: added \ before ^ in the following regex -->
+ <RegExpr attribute="Pattern Character Class" context="#stay" String="\[:\^?[a-z]+:\]" />
<DetectChar attribute="Pattern Internal Operator" context="#pop" char="]" />