Select Code to Download

$confile = decode("iso-8859-1", $file);
my $parser = XML::LibXML->new();
my $doc = $parser->parse_file($confile);

<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?>
<?xml-stylesheet type="text/xsl" href="notes.xsl"?>
...
<TMMR><DATE>20090414</DATE><TIME>18:40:39</TIME><CEO_ID>12943-56A</CEO
+_ID><CEO_ID_SORTED>217.064.098.066</CEO_ID_SORTED><MANUID>80</MANUID>
+<STATUS>Open</STATUS><NOTES><![CDATA[Last checked on 14Aug
]]></NOTES><SERVICE_INFO><![CDATA[:^Ls3weNp2Y
]]></SERVICE_INFO><CONTENT1><![CDATA[]]></CONTENT1><CONTENT2><![CDATA[
+]]></CONTENT2></TMMR>