diff --git a/mode/perl.py b/mode/perl.py
index f5c6d53..9c1c009 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -170,6 +170,7 @@ class PerlGrammar(Grammar):
 
         # some basic stuff
         PatternRule(r'delimiter', r"::|->|=>|(?<!:):(?!=:)|[,;=\?(){}\[\]\(\)]"),
+        PatternRule(r'noperator', r"-[rwxoRWXOezsfdlpSbctugkTBMAC]"),
         PatternRule(r'operator', r"\+=|-=|\*=|/=|//=|%=|&=\|\^=|>>=|<<=|\*\*=|\\"),
         PatternRule(r'operator', r"\+\+|\+|<=>|<>|<<|<=|<|-|>>|>=|>|\*\*|\*|&&|&|\|\||\||/|\^|==|//|~|=~|!~|!=|%|!|\.|x(?![a-zA-Z_])"),
         PatternRule(r'noperator', r"(?:xor|or|not|ne|lt|le|gt|ge|eq|cmp|and)(?![a-zA-Z_])"),