something to try if none of the built in methods work out - use recursion with regex's. something like:

sub find_tags {
$tag = $_[0];
$tag =~ m/<(.*?)>(.*?)<.*?>/
print "$1 : $2";
if ($2 =~ m/</) {find_tags($2);}
}
[download]

this might need some debugging... you also probably have to worry about finding quotes within the tags as well... but this is the basic idea.