POD allows this with the for (or begin) directives; something like

=for email

Usenet style stuff here

=end email

=for perltidy

some_code_here();

=end perltidy
[download]

See perlpod. I haven't fiddled with the Pod::Parser or siblings to know how much effort it would be to actually implement this though.

Makeshifts last the longest.