Select Code to Download

print unless ( /START context/ or /\* End context \*/ );

{
    local $/ = "* End Context *\n";
...
    chomp @info;
    print "$_\n" foreach @info
}