[완료]perl 질문드립니다.

#!/usr/bin/env perl
use strict;
use warnings;
 
#내용을 $data안에 모두 넣는다.
my $data = do { local $/; <DATA> };
#매칭이 일어날때 까지 루프를 돌며 매칭값을 프린트한다.
while ( $data =~ m/(ALTER TABLE.*?;)/sgm ) {
    print "$1\n\n";
}
 
__DATA__
CREATE TABLE "HDHS"."TMOTOQUEST" ("MOTO_CODE" VARCHAR2(10) NOT NULL
ENABLE, "MOTO_SEQ" VARCHAR2(3) NOT NULL ENABLE, "QUESTION_NOTE"
VARCHAR2(100)) PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255
STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL
DEFAULT) TABLESPACE "HSTV" NOLOGGING NOCOMPRESS ;
CONNECT HDHS;
CREATE UNIQUE INDEX "HDHS"."PK_TMOTOQUEST" ON "TMOTOQUEST" ("MOTO_CODE" ,
"MOTO_SEQ" ) PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536
FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX"
NOLOGGING ;
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT "PK_TMOTOQUEST"
PRIMARY KEY ("MOTO_CODE", "MOTO_SEQ") USING INDEX PCTFREE 10 INITRANS
2 MAXTRANS 255 STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1
BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX" NOLOGGING ENABLE ;
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" FOREIGN KEY ("MOTO_CODE") REFERENCES
"TMOTOCODE" ("MOTO_CODE") ENABLE NOVALIDATE ;
ALTER TABLE "HDHS"."TMOTOQUEST" ENABLE CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" ;
__END__

ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT "PK_TMOTOQUEST"
PRIMARY KEY ("MOTO_CODE", "MOTO_SEQ") USING INDEX PCTFREE 10 INITRANS
2 MAXTRANS 255 STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1
BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX" NOLOGGING ENABLE ;
 
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" FOREIGN KEY ("MOTO_CODE") REFERENCES
"TMOTOCODE" ("MOTO_CODE") ENABLE NOVALIDATE ;
 
ALTER TABLE "HDHS"."TMOTOQUEST" ENABLE CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" ;