Select Code to Download

(defun unplusify-buffer () (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "^[+]")
      (backward-delete-char 2))))

(defvar perlmonks-wrap-width 60)

...
      (if (= perlmonks-wrap-width
             (save-excursion (previous-line 1) (end-of-line) (current-
+column)))
          (backward-delete-char 2)))))

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/