Select Code to Download

# Caveat Lector - this is untested!
foreach $tag (@tags) {
...
        },
    };
}

foreach my $tag (@tags) {
    my ($name, $attributes, $value) = $tag =~
...

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