use Token::Regex;
my $regex = Token::Regex->new('HTML::Token');
$regex->parse(\@tokens);