use warnings;
use strict;
use XML::Twig;

my $xml = <<XML;
<?xml version="1.0" encoding="utf-8"?>
<string xmlns="test.test.com/site/TST/">someresult</string>
XML

my $twig = XML::Twig->new (twig_roots => {string => \&pullString});

$twig->parse ($xml);


sub pullString {
    my ($t, $elt) = @_;
    
    print $elt->text (), "\n"
}

##</code><code>##

someresult