#! perl -w scipt

##</code><code>##

use strict;
use warnings;

##</code><code>##

my @files;
my @List_of_commands; 
my $line;
my $file;

##</code><code>##

while (<*.sql>) {
  push (@files,$_);
}

##</code><code>##

my @files=<*.sql>;

##</code><code>##

foreach (@files) {

##</code><code>##

for (<*.sql>) {  # I never use C<foreach> ;-)

##</code><code>##

  $file = $_;

##</code><code>##

for my $file (<*.sql>) {  # I still prefer C<for> orver C<foreach>!!

##</code><code>##

  open (FILE, "<$file");

##</code><code>##

  while (<FILE>){

    my $line = $_;

##</code><code>##

    if $line not =~ (/INSERT INTO Message_pool)/{
      #Do nothing
    }

##</code><code>##

#!/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__

##</code><code>##

#!/usr/bin/perl -ln

use strict;
use warnings;

BEGIN {@ARGV=map glob, @ARGV} # You're under Win*, aren't you?

next unless /$whatever (\w+) $whatever/;
print "whatever: $1";

__END__