Shell Programming and Scripting

ex:

FILE.TXT
CREATE TABLE AB
(CD1 VARCHAR2(100),
CD2 VARCHAR(50),
START_DT DATE,
END_DT DATE);

CREATE TABLE AB1
(CD1 VARCHAR2(100),
CD2 VARCHAR(50));

o/p should be 
Tablename :AB

awk '/CREATE TABLE /{table=$2; start=0; }
/START_DT/ { start++ }
/END_DT/ && start  { print "Table name: " table }' file

awk 'toupper($0) ~ /CREATE TABLE /{table=$2; start=0; }
toupper($0) ~ /START_DT/ { start++ }
toupper($0) ~ /END_DT/ && start  { print table }' file

undef $/;
open FH,"<file.txt";
while(<FH>){
        @arr=split("CREATE",$_);
        for($i=0;$i<=$#arr;$i++){
                $arr[$i]=~tr/\n/ /;
		@temp=split(" ",$arr[$i]);
		if($temp[6] eq "START_DT" && $temp[8] eq "END_DT"){
			print "Tablename:",$temp[1],"\n";
		}
	}
}
close(FH);

Perl script which posted by summer_cherry its not working ,
temp[6] && $temp[8] {5th and 7th fields) 
If Date columns may be different sequence
in some of the tables,In this case how can the below script can work?

ex:

Create table ..
cd1  char(10),
start_dt date,
desc varcha(200),
end_dt date));

##

undef $/;
open FH,"<file.txt";
while(<FH>){
        @arr=split("CREATE",$_);
        for($i=0;$i<=$#arr;$i++){
                $arr[$i]=~tr/\n/ /;
		@temp=split(" ",$arr[$i]);
		if($temp[6] eq "START_DT" && $temp[8] eq "END_DT"){
			print "Tablename:",$temp[1],"\n";
		}
	}
}
close(FH);
###