or download this
while ( <DATA> ) {
if ( /^ALTER\s+TABLE\s+
(\w+) # $1
...
__DATA__
ALTER TABLE ORDERS ADD CONSTRAINT PK_ORDER_ORDER_NUM PRIMARY KEY ( ORD
+ER_NUM)
ALTER TABLE ORDER_ITEMS ADD CONSTRAINT PK_ORDER_NUM_ITEMS PRIMARY KEY
+( ORDER_NUM, ITEM_NUM, SUB_TYPE )