use Modern::Perl;
my $html5 = do { local $/ = };
{
say "HTML::HTML5::Parser:";
use HTML::HTML5::Parser;
use XML::LibXML::QuerySelector;
my $dom = HTML::HTML5::Parser->new->parse_string($html5);
say $dom->querySelector('tbody')->textContent;
}
say "----";
{
say "Mojo::DOM:";
use Mojo::DOM;
my $dom = Mojo::DOM->new($html5);
$dom->find('tbody')->each(sub{say $_->all_text});
}
__DATA__
Greetings
####
Greetings