syntax error at pull_out_tables.pl line 24, near "if $line "
Can't use global $1 in "my" at pull_out_tables.pl line 30, near "= $1"
syntax error at pull_out_tables.pl line 35, near "}"

##</code><code>##

#! perl -w scipt

use strict;
use warnings;

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

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

foreach (@files) {

  $file = $_;
  open (FILE, "<$file");
  
  while (<FILE>){

    my $line = $_;
    
    if $line not =~ (/INSERT INTO Message_pool)/{
      #Do nothing
    }
    elsif $line =~ (/^.{0,50}CREATE TABLE\s([A-Z|a-z|_]{5,40})\s.{1,100}/) {
      
      my $table_name;
      $table_name = $1;
      my $Command = "if exists (select 1 from INFORMATION_SCHEMA.tables where table_name = '".$table_name."') DROP TABLE ".$table_name."";
      
      push(@List_of_commands, $Command);

    }
  }
}

my $outfile = "Outfile.txt";

open (OUTFILE, "+>$outfile");

foreach (@List_of_commands){
  print OUTFILE "$_\n"
}