diff --git a/mode/perl.py b/mode/perl.py
index 3ca481b..8ecf82b 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -130,6 +130,11 @@ class PerlTabber(tab2.StackTabber):
         elif fqname == 'heredoc.end':
             self._opt_pop('heredoc')
             self._opt_pop('cont')
+        elif fqname == 'quoted.start':
+            self._opt_append('quoted', currlvl + 4)
+        elif fqname == 'quoted.end':
+            self._opt_pop('cont')
+            self._opt_pop('quoted')
         elif fqname == 'evaldoc.start':
             self._opt_append('evaldoc', None)
         elif fqname == 'evaldoc.end':