You could either change the wrap width in your prefs,
or use the download the code link as
bart suggests. Or you could use an editor macro or
function to undo the plus-wrapping. In Emacs, this
should do it...
(defun unplusify-buffer () (interactive)
(save-excursion
(goto-char (point-min))
(while (re-search-forward "^[+]")
(backward-delete-char 2))))
The corresponding unplusify-region function is left
as an exercise for the reader. Also note that I didn't
worry about lines that legitimately start with +,
because my obfu doesn't have any. A more general
case would be a couple extra lines, as it would have
to check whether the previous line is the same length
as your wrap width.
update: like this:
(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)))))
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/