From 8694e28edbf728dbe33df1074f6a59f1bfacb0ec Mon Sep 17 00:00:00 2001
From: "Matthew D. Miller" <matthew.miller@okbu.edu>
Date: Wed, 10 Oct 2018 14:27:36 -0500
Subject: [PATCH] Modified original regex rule to only catch instances of bare
 /regex/

---
 src/perl/perl.ts | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perl/perl.ts b/src/perl/perl.ts
index 6bfb1a95..e1e32da9 100644
--- a/src/perl/perl.ts
+++ b/src/perl/perl.ts
@@ -505,7 +505,7 @@ export const language = <ILanguage>{
 
 			// RegExp
 			[
-				/[goseximacplud]*[\/](?:(?:\[(?:\\]|[^\]])+\])|(?:\\\/|[^\]\/]))*[\/]\w*\s*(?=[).,;]|$)/,
+				/[\/](?:(?:\[(?:\\]|[^\]])+\])|(?:\\\/|[^\]\/]))*[\/]\w*\s*(?=[).,;]|$)/,
 				'regexp',
 			],