use strict;
use warnings;
use XML::LibXML;

my $xmlString = "<doc><text>From mobile, <ph1 i=\"1\" type=\"33\" x=\"1\"/>dial<ph2 i=\"1\"/> this number:</text></doc>";

my $dom = XML::LibXML->load_xml(string => $xmlString);

my $to_literal = $dom->to_literal('/doc/text');
print "to_literal:\t$to_literal\n";

my $findvalue = $dom->findvalue('/doc/text');
print "findvalue:\t$findvalue\n";

my $textContent = $dom->textContent('/doc/text');
print "textContent:\t$textContent\n";