Another way to do it would be to examine each line, and if it's a CREATE TABLE line, close the previous file and start a new one.

if ($line =~ /CREATE TABLE/) {
   close (FILE)
   ($filename) = $line =~ /CREATE TABLE ([\S]*)/;
   open (FILE, >$filename);
}
[download]

A similar method would also work if you have a more complicated delimiter, such as (for instance), an email address and name, but not an email and website.