#!/usr/bin/perl
# UNTESTED!

use strict;
use warnings;

open my $out, '>', "outfile.txt" or
  die "Can't open output file: $!\n";
select $out;

@ARGV=<*.sql>;
while (<>) {
    next unless /^.{0,50}CREATE TABLE
                 \s
                 ([A-Z|a-z|_]{5,40})
                 \s
                 .{1,100}/x;
    print "if exists (select 1 from INFORMATION_SCHEMA.tables where table_name = '$1') DROP TABLE '$1'\n";
}

__END__