func textfromxml($xp, $xpath) {
    my $nodeset = $xp->find($xpath);
    my ($text) = XML::XPath::XMLParser::as_string(($nodeset->get_nodelist)[0])
        =~ />(.*)</;
    return $text;
}

use XML::XPath;
use XML::XPath::XMLParser;
my $xp = XML::XPath->new(xml => $html);
my $text = textfromxml($xp, '/html/body/div/div/h2[2]');
ok('Matrix' eq $text, "Got correct title (Matrix)");