FieldName1 VARCHAR(20) FieldName2 INT(20) FieldName3 BOOL

##

while ($file =~ s/([\n.]*)<\/TABLE>//i)
{
    # $1 should equal ' name="table1"'
    my $attributes = $1;

    #$2 should equal
    #
    #FieldName1 VARCHAR(20)
    #FieldName2 INT(20)
    #FieldName3 BOOL
    #
    my $fields     = $2;
}

##

##

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

##

##

$2 = 'FieldName1 VARCHAR(20)'

##

##

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

##

##

$2 = "\n";