Select Code to Download

<?xml version="1.0"?>
<office:document-content office:version="1.2"
...
</text:p>
</office:text></office:body>
</office:document-content>

<r>
   `-- <p>
...
           |      +- <s>
           |      `- c
           `- d

<r>
   `+- <p>
...
          `+- <x>
           |     `-- c
            `- d

use warnings;
use strict;
...

print "#####\n";
print $dom;