my @stack;
    while(defined(my $t = $p->get_token())){
        if($t->is_start_tag('a')) {
            my $attr = $t->return_attr;
            push @stack, exists $attr->{href};
            print(
                "\nHREF TAG-->[",
                ++$hrefCount,
                "]-->",
                $attr->{href},
                "\n\n"
            ), next if $stack[-1];
        }

        next if $t->is_end_tag('a') and pop @stack;

        print TEMPO $t->as_is;
    }