=head1 Heading Text

Blah Blah

##</code><code>##

=head1 Heading
       Text

Blah Blah

##</code><code>##

diff --git a/cperl-mode.el b/cperl-mode.el
index 00e6c3b..d0b23ee 100644
--- a/cperl-mode.el
+++ b/cperl-mode.el
@@ -3873,38 +3873,38 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
                  (put-text-property b e 'in-pod t)
                  (put-text-property b e 'syntax-type 'in-pod)
                  (goto-char b)
-                 (while (re-search-forward "\n\n[ \t]" e t)
-                   ;; We start 'pod 1 char earlier to include the preceding line
-                   (beginning-of-line)
-                   (put-text-property (cperl-1- b) (point) 'syntax-type 'pod)
-                   (cperl-put-do-not-fontify b (point) t)
-                   ;; mark the non-literal parts as PODs
-                   (if cperl-pod-here-fontify
-                       (cperl-postpone-fontification b (point) 'face face t))
-                   (re-search-forward "\n\n[^ \t\f\n]" e 'toend)
-                   (beginning-of-line)
-                   (setq b (point)))
-                 (put-text-property (cperl-1- (point)) e 'syntax-type 'pod)
-                 (cperl-put-do-not-fontify (point) e t)
-                 (if cperl-pod-here-fontify
-                     (progn
-                       ;; mark the non-literal parts as PODs
-                       (cperl-postpone-fontification (point) e 'face face t)
-                       (goto-char bb)
-                       (if (looking-at
-                            "=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$")
-                           ;; mark the headers
-                           (cperl-postpone-fontification
-                            (match-beginning 1) (match-end 1)
-                            'face head-face))
-                       (while (re-search-forward
-                               ;; One paragraph
-                               "^\n=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$"
-                               e 'toend)
-                         ;; mark the headers
-                         (cperl-postpone-fontification
-                          (match-beginning 1) (match-end 1)
-                          'face head-face))))
+;                (while (re-search-forward "\n\n[ \t]" e t)
+;                  ;; We start 'pod 1 char earlier to include the preceding line
+;                  (beginning-of-line)
+;                  (put-text-property (cperl-1- b) (point) 'syntax-type 'pod)
+;                  (cperl-put-do-not-fontify b (point) t)
+;                  ;; mark the non-literal parts as PODs
+;                  (if cperl-pod-here-fontify
+;                      (cperl-postpone-fontification b (point) 'face face t))
+;                  (re-search-forward "\n\n[^ \t\f\n]" e 'toend)
+;                  (beginning-of-line)
+;                  (setq b (point)))
+;                (put-text-property (cperl-1- (point)) e 'syntax-type 'pod)
+;                (cperl-put-do-not-fontify (point) e t)
+;                (if cperl-pod-here-fontify
+;                    (progn
+;                      ;; mark the non-literal parts as PODs
+;                      (cperl-postpone-fontification (point) e 'face face t)
+;                      (goto-char bb)
+;                      (if (looking-at
+;                           "=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$")
+;                          ;; mark the headers
+;                          (cperl-postpone-fontification
+;                           (match-beginning 1) (match-end 1)
+;                           'face head-face))
+;                      (while (re-search-forward
+;                              ;; One paragraph
+;                              "^\n=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$"
+;                              e 'toend)
+;                        ;; mark the headers
+;                        (cperl-postpone-fontification
+;                         (match-beginning 1) (match-end 1)
+;                         'face head-face))))
                  (cperl-commentify bb e nil)
                  (goto-char e)
                  (or (eq e (point-max))