Select Code to Download

#!/usr/bin/perl -w             

...
$xml .= "</nodes>";

print $xml;

<?xml version="1.0" encoding="UTF-8"?>
<nodes>
...
      <author>Photo: Lynne Cameron / PA Wire / Press Association Image
+s</author>
   </node>
</nodes>