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