$_ = <<"DOC"; s/^ //msg; print;
 =pod
 stuff here
 =cut
DOC
;;
=pod
stuff here
=cut

##</code><code>##

$_ = <<"DOC"; s/^#//msg; print;
#=pod
#stuff here
#=cut
DOC
;;
=pod
stuff here
=cut