while ($file =~ s/<TABLE(.*)>([\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;
}