use XML::LibXML; use FileHandle; my $parser = XML::LibXML->new; my $doc = $parser->parse_html_fh( \*DATA ); print $doc->findvalue('//title'); __DATA__ Nothing to see here