Select Code to Download

open my $FH, '<', $file or die $!;
while (<$FH>) {
    last if /^__END__\s/; # Update: maybe /\b__END__\b/ or /(?:^|\s)__
+END__(?:\s|$)/)
    print;
}

print "
__END__
";