use strict;

my $str = q{<seg><foo mid="0" mtype="seg"><g id="1">Need to export this text</g></foo></seg>};
my $xml = XML::LibXML->load_xml(string => $str);

print $xml->getElementsByTagName("g")->shift->toString, "\n";