Select Code to Download

<?xml version="1.0" encoding="ISO-8859-1" ?> 
<!DOCTYPE page SYSTEM "entities.dtd"> 
...
    </test> 
  </input>
</form>

$string = $dom->toString;
$string =~ s/<\/form>//gim;
$string .= "<info><failure>blah</failure></info>\n</form>\n";
$dom = $parser->parse_string($string);