#!/usr/local/bin/perl
open(FOO, ">tmpfile1");
open(HTMLFILE, $ARGV[0]);
open(TABLEFILE, $ARGV[1]);
while (<HTMLFILE>) {
    if (/<TABLE/) {
	s/(.*)<TABLE.*$/\1/;
	print FOO $_;
	last;
    }
    print FOO $_;
}
while (<TABLEFILE>) {
    if (/<TABLE/) {
	s/^.*(<TABLE[^>]*>.*)$/\1/;
	print FOO $_;
	last;
    }
}
while (<TABLEFILE>) {
    if (/<\/TABLE/) {
	s/(<\/TABLE[^>]*>).*$/\1/;
	print FOO $_;
	last;
    }
    print FOO $_;
}
while (<HTMLFILE>) {
    if (/<\/TABLE/) {
	s/^.*<\/TABLE[^>]*>(.*)$/\1/;
	print FOO $_;
	last;
    }
}
while (<HTMLFILE>) {
    print FOO $_;
}

close(HTMLFILE);
close(TABLEFILE);
close(FOO);