package II8b55f24974af3d53369c3d9cea404f55::filters::text2xml; use strict; sub text2xml { my $v = shift; $v =~ s/&/&amp;/g; $v =~ s/"/&quot;/g; $v =~ s/>/&gt;/g; $v =~ s/</&lt;/g; $v =~ s/'/&apos;/g; $v; } 1; 