diff --git a/PowerEditor/Test/FunctionList/perl/unitTest b/PowerEditor/Test/FunctionList/perl/unitTest
index 7a74682b8..75cc42f5b 100644
--- a/PowerEditor/Test/FunctionList/perl/unitTest
+++ b/PowerEditor/Test/FunctionList/perl/unitTest
@@ -148,6 +148,10 @@ sub VarNames($)
     return (@vars);
 }
 
+sub functionNoParentheses {
+    return 1
+}
+
 ############### Start ###############
 
 print "\npltags $VERSION by Michael Schaap <mscha\@mscha.com>\n\n";
diff --git a/PowerEditor/Test/FunctionList/perl/unitTest.expected.result b/PowerEditor/Test/FunctionList/perl/unitTest.expected.result
index dbc771253..4dab7d3d3 100644
--- a/PowerEditor/Test/FunctionList/perl/unitTest.expected.result
+++ b/PowerEditor/Test/FunctionList/perl/unitTest.expected.result
@@ -1 +1 @@
-{"leaves":["MakeTag","PackageName","SubName","VarNames"],"root":"unitTest"}
\ No newline at end of file
+{"leaves":["MakeTag","PackageName","SubName","VarNames","functionNoParentheses"],"root":"unitTest"}
\ No newline at end of file
diff --git a/PowerEditor/src/functionList.xml b/PowerEditor/src/functionList.xml
index 129d23a2c..755a5e370 100644
--- a/PowerEditor/src/functionList.xml
+++ b/PowerEditor/src/functionList.xml
@@ -651,10 +651,8 @@
 							sub
 							\s+
 							[A-Za-z_]\w*
-							\s*
-							\(
-							[^()]*
-							\)
+							(\s*\([^()]*\))?                                    # prototype or signature
+						  	(\s*\:\s*[^{]+)?                                    # attributes
 							\s*\{                                               # start of class body
 						"
 				>