Select Code to Download

<TABLE name="table1">
FieldName1 VARCHAR(20)
...
FieldName2 INT(20)
FieldName3 BOOL
</TABLE>

while ($file =~ s/<TABLE(.*)>([\n.]*)<\/TABLE>//i)
{
...
    #
    my $fields     = $2;
}

$file =~ s/<TABLE(.*)>(\n.*)//i

$2 = 'FieldName1 VARCHAR(20)'

$file =~ s/<TABLE(.*)>([\n.]*)//i\

$2 = "\n";