#!/usr/bin/perl
use strict;
use warnings;
use feature qw{ say };

use XML::LibXML;

my $xml = '<r><p>Paragraph one here.</p><p>Paragraph <b>two</b> here.</p></r>';
my $dom = 'XML::LibXML'->load_xml(string => $xml);

print $dom->findvalue('/r/p[2]');  # Same as $dom->findnodes('/r/p[2]//text()')
# Paragraph two here.

print $dom->findnodes('/r/p[2]');  # Same as map $_->toString, $dom->findnodes('/r/p[2]')
# <p>Paragraph <b>two</b> here.</p>

print $dom->findnodes('/r/p[2]/text()');
# Paragraph  here