Instead of

sub text_to_xml {
   my $s = shift;
   $s =~ s/]]>/]]>]]&gt;<![CDATA[/g;
   return "<![CDATA[$xml]]>";
}
[download]

you could use

use HTML::Entities qw( encode_entities );

sub text_to_xml {
    return encode_entities($text, '<&');
}
[download]