#!/usr/bin/perl

use Text::RewriteRules;
use File::Slurp 'slurp';

my $text = slurp(shift);

$text = rewrite($text);

print $text;

RULES rewrite
`mydb`.==>
`==>
INT ==>INTEGER 
INDEX .*==>
AUTO_INCREMENT==>AUTOINCREMENT
NOT NULL AUTOINCREMENT==>PRIMARY KEY AUTOINCREMENT
CREATE SCHEMA .*==>
USE ==>
SET.*==>
\nENGINE.*==>;\n
(.)\);==>$1\n);
CONSTRAINT.*\n.*\n.*\n.*\n.*==>
\n\s*\n==>\n
,\n\s*\);==>);
PRIMARY KEY \([^,)]+\)==>
ENDRULES