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

##</code><code>##

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