Your approach looks great. To get all tags in the entered order without content:

use 5.16.2;
use warnings;
use HTML::TreeBuilder;

my $tree = HTML::TreeBuilder->new;
$tree->parse_content (do { local $/; <> });
my @tags = map { $_->tag } $tree->look_down (_tag => qr{.});
[download]