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