diff --git a/mode/perl.py b/mode/perl.py
index b0bb8d7..fdd1d3b 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -147,7 +147,7 @@ class PerlGrammar(Grammar):
         #PatternRule('perl.cast', r'[\$\@\%\&\*](?= *{)'),
 
         PatternRule('perl.number', r'0[xX][0-9A-Fa-f]+'),
-        PatternRule('perl.number', r'0?\.[0-9]+|[0-9]+(?:\.[0-9]+)?'),
+        PatternRule('perl.number', r'-?0?\.[0-9]+|-?[0-9]+(?:\.[0-9]+)?'),
 
         # built-in scalars
         PatternRule('perl.array', r'\$' + word2 + '(?= *\[)'),