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{.});