(defvar perlmonks-wrap-width 60)

(defun perlmonks-unplusify-buffer () (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "^[+]" (point-max) nil)
      (if (= perlmonks-wrap-width
             (save-excursion (previous-line 1) (end-of-line) (current-column)))
          (backward-delete-char 2)))))