# Caveat Lector - this is untested!
foreach $tag (@tags) {
    push @{$tagstack{$tag->name}}, {
        text => $tag->value,
        attributes => {
            split /[\s=]+/, $tag->attributes
        },
    };
}