#!/usr/bin/perl use warnings; use strict; use XML::LibXML; my $dom = 'XML::LibXML'->load_html(string => << '__HTML__', recover => 1);

Hello world

__HTML__ print $dom->findvalue('/html/body/h1/text()');