diff --git a/mode/perl.py b/mode/perl.py
index fdd1d3b..bd2e935 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -183,14 +183,14 @@ class PerlGrammar(Grammar):
         RegionRule('perl.match', r'm *(?P<delim>\<)',
                    MatchGrammar6, r'\>[a-z]*'),
 
-        # match regexes
+        # match regexes; standard delimiters
         RegionRule('perl.match', r'(?:(?<==~)|(?<=!~)|(?<=\()|(?<=split)|(?<=if)|(?<=unless)|(?<=while)|(?<=until)|(?<=\|\|)|(?<=&&)|(?<==)) *(?P<delim>/)', MatchGrammar1, '/[a-z]*'),
         RegionRule('perl.match', 'm *(?P<delim>/)', MatchGrammar1, '/[a-z]*'),
         RegionRule('perl.match', 'm *(?P<delim>[^ #a-zA-Z0-9_])',
                    MatchGrammar0, '%(delim)s[a-z]*'),
         RegionRule('perl.match', 'm(?P<delim>#)', MatchGrammar2, '#[a-z]*'),
 
-        # match regexes; paired delimiters
+        # replace regexes; paired delimiters
         RegionRule('perl.replace', r's *(?P<delim>\()', MatchGrammar3,
                    r'\)', WhitespaceGrammar, '\(', MatchGrammar3, r'\)[a-z]*'),
         RegionRule('perl.replace', r's *(?P<delim>\[)', MatchGrammar4,
@@ -200,7 +200,7 @@ class PerlGrammar(Grammar):
         RegionRule('perl.replace', r's *(?P<delim>\<)', MatchGrammar6,
                    r'\>', WhitespaceGrammar, '\<', MatchGrammar6, r'\>[a-z]*'),
 
-        # replace regexes
+        # replace regexes; standard delimiters
         RegionRule('perl.replace', 's *(?P<delim>/)', MatchGrammar1,
                    '/', MatchGrammar1, '/[a-z]*'),
         RegionRule('perl.replace', 's *(?P<delim>[^ a-zA-Z0-9_])',