diff --git a/mode/perl.py b/mode/perl.py
index 7503e46..efe91fa 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -33,7 +33,8 @@ strg1 = r"'(?:\\.|[^'\\])*'"
 strg2 = r'"(?:\\.|[^"\\])*"'
 wchr1 = '[a-zA-Z_]'
 wchr2 = '[a-zA-Z0-9_]'
-hword = wchr2 + '+'
+wchr3 = '[-a-zA-Z0-9_]'
+hword = wchr3 + '+'
 word1 = wchr1 + wchr2 + '*'
 word2 = '(?:' + word1 + '::)*' + word1
 pname = '[.a-zA-Z0-9_]+'