Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE foo SYSTEM "/path">
<foo version="blah">
<record>stuff</record>
<record>stuff 2</record>
</foo>

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE foo SYSTEM "/path">
<foo version="blah">
<record>altered stuff</record>
<record>altered stuff 2</record>
</foo>

#!/usr/bin/perl
use strict;
use warnings;
...
);
$p->parsefile("in.xml");
print "DONE\n";

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE foo SYSTEM "/path">
<foo version="blah">
<foo version="blah"><record>altered stuff</record> # the extra <foo ve
+rsion="blah"> is the problem.
<record>altered stuff 2</record>
</foo>