Select Code to Download

$doc->findnodes('foo')

$doc->findnodes('seg/foo')

$doc->findnodes('/seg/foo')

$foo->findnodes('text()')

join('', map { $_->toString() } $foo_node->childNodes)

join('', $foo_node->childNodes)

$foo->findvalue('@mid')

$foo->getAttribute('mid')

use strict;
use warnings qw( all );
...
   my $inner_xml = join('', $foo_node->childNodes);
   say "$mid $inner_xml";
}