use XML::LibXML;

my $xml = q|
<seg>
	<foo mid="0" mtype="seg">
		<g id="1">Need to export this text</g>
	</foo>
	<foo mid="1" mtype="seg">
		Need to export this text also
	</foo>
</seg>|;

my $doc = XML::LibXML->load_xml(string => $xml);
my @foos = $doc->findnodes('//foo');

for my $foo (@foos) {
	my $mid = $foo->getAttribute('mid');
	print "mid: $mid ";
	my @childnodes = $foo->childNodes();
	if (@childnodes) {
		for my $node (@childnodes) {
			print $node->toString, "\n";
		}
	}
	else {
		print $foo->textContent, "\n";
	}
}

##</code><code>##

mid: 0 
<g id="1">Need to export this text</g>

mid: 1 
Need to export this text also