Select Code to Download

#!/usr/bin/perl

...
s/^(#+).*\n\n(?!^\1#)//gm;

print;

## This doesn't
Because it contains this line
...

##### But it does
isn't some text needed here?