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