sub text_to_xml { my $s = shift; $s =~ s/]]>/]]>]]>"; }