Select Code to Download

; sub capture (&;*)
   { my $code = shift
...
      }
   ; \$output
   }

use strict;
use warnings;
...
}

#...

perl -ne 'next if m{^\s*;\s*[^#]}; print $_' debugging.pl > stripped.p
+l

print <<HEREDOC
Some lines go here
HEREDOC
; #this would be filtered out if I didn't leave a comment