Select Code to Download

      if ($line !~ m/ALTER\sPROCEDURE\s/){
    #do nothing
...
      else {
    goto here;
      }

      if ($line =~ m/ALTER\sPROCEDURE\s/) {
         last;
      }