Select Code to Download

#!/usr/bin/perl
$goprint=0;
...
  if ($_ =~ /^END(.*)/){$goprint=0;next}
print "$_" if $goprint == 1;
}

#Here's code that finds everything  
#between START and END in a paragraph: 
...
print "$1\n";
}
}