diff --git a/mode/perl.py b/mode/perl.py
index 6755cb2..ca82719 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -258,7 +258,7 @@ PerlGrammar.rules = [
     PatternRule('perl.class', word2 + "(?=->)"),
 
     PatternRule('perl.glob', r'\*(?= *{)'),
-    PatternRule('perl.glob', r'(?:(?<=[^a-zA-Z0-9_])|(?<=^)) *\*' + word2),
+    PatternRule('perl.glob', r'(?:(?<=[^a-zA-Z0-9_])|(?<=^)) *\*\$*' + word2),
 
     # some basic stuff
     PatternRule('delimiter', r"::|->|=>|(?<!:):(?!=:)|[,;=\?(){}\[\]\(\)]"),