Select Code to Download

foreach $table (@tables) {
    chomp $table;
...

EOT
}

open (INFILE, "< $infile") or die "Couldn't open $infile: $!";
open (OUTFILE, "> $outfile") or die "Couldn't open $outfile: $!";

...

close (INFILE);
close (OUTFILE);

foreach $table (@tables) {
    print OUTFILE (map "$_\n",
        "BEGIN",
...
        "/\n",
    );
}