foreach my $tag (@tags) {
    my ($name, $attributes, $value) = $tag =~
    m#^<(\w+)\s+(\w+)?\s*>(.*?)</\1>$#;

    # Use $name, $attributes, and $value as per above
}