my $html = <<END_HTML;
<h1>This is a test</h1>
<p class="foo" name="bar">so what???
END_HTML
my $parser = HTML::TokeParser::Simple->new(\$html);
my @tokens = ();
while (my $token = $parser->get_tag) {
    push @tokens => HTML::Token->new($token);
}
push @tokens => (qw[* . *]); # make the (p) tag zero or more, followed by anything