Select Code to Download

$a = q{<tag ref=1>Start<tag ref=2>and more</tag>and end</tag>};
my @b;
$a =~ s/(<\/?tag[^>]*>)(\w*)/push @b, ($1,$2)/eg;
map {print $_,"\n"} @b;

<tag ref=1>
Start
...
</tag>
and
</tag>