Select Code to Download

perl -pe'BEGIN{print"__BEGIN__\n"}s/^\s*$/__BEGIN__\n__END__\n/;END{pr
+int"__END__\n"}' <file>

perl -pe'$e="__END__\n";BEGIN{$b="__BEGIN__\n";print$b}s/^\s*$/$b$e/;E
+ND{print$e}' <file>