#!/usr/bin/perl -- use strict; use warnings; use XML::LibXML; my $html = <<'__HTML__'; Hello Firefox!

Hello World!

Hello WWW::Mechanize::Firefox Goob bye

__HTML__ my $dom = XML::LibXML->new( qw/ recover 2 / )->load_html( #~ string => \$html, ## BUG! scalar... not like load_xml string => $html, ); local $\ = $/; print for $dom->findnodes(q{ substring(//p,1,4) }); ## nada print for $dom->findnodes(q{ //p }); ## paragraph