XML::LibXML...findnodes( "//script" ) ...$node->textContent, HTML::TreeBuilder::XPath...findnodes( "//script" )...innerHTML... xpather.pl/htmltreexpather.pl

sub HTML::Element::innerHTML {
    my( $self ) = @_;
    return join '', map { ref $_? $_->as_HTML : $_ } $self->content_li
+st;
}
[download]

Re: HTML::TokeParser - extract values between tags