Select Code to Download

#!/usr/bin/perl 
 
use strict;
...
   <![CDATA[Test url ]]>
   </url>
</doc>

<doc>
   <artikle><![CDATA[Test tittle ]]></artikle>
   <ingres><![CDATA[Test ingres ]]></ingres>
   <url><![CDATA[Test url ]]></url>
</doc>

#!/usr/bin/perl 
 
use strict;
...

__DATA__
<my> document here, oh </my>

#!/usr/bin/perl 
 
use strict;
...
   </artikle>
</doc>