or for all perl files:

(add-hook 'cperl-mode-hook
      '(lambda () (and (setq outline-regexp "sub") (outline-minor-mode
+))))
[download]

also,

(setq outline-regexp "sub\\|^\\S-")
[download]

leaves all unindented text visible (eg, 'use', etc. outside of subs).

Wrong:   Newline isn't a space character (at least in my tables) it's an '>' -- "end of comment" character (sigh). the only regexp I could actually make work is "sub\\|^[^ <tab><c-J>]"where I actually ctl-q inserted the tab and newline.

p