Help for this page
use HTML::HTML5::Parser; ... <p>Baz</br>Quux. EOT print $doc->textContent;
Foo Foo bar. BazQuux.