Select Code to Download

:let @p="L?^#!\r/^__END__\ry''''p!Gperl\rG"

#!/usr/bin/perl -n
next if /.../;
...
print;
__END__
...