open my $handle, "<", $ARGV[0] or die "Couldn't open file: $!"; # safer way to open a file for reading.
while (<$handle>)
{
  if (/CREATE TABLE/../-----/) # if between CREATE TABLE and -----
  {
    # Some code
  }
}