$xmlstring =~ s/\&/&/g;
$xmlstring =~ s/\</&lt;/g;
$xmlstring =~ s/\>/&gt;/g;
$xmlstring =~ s/\"/&quot;/g;
$xmlstring =~ s/\'/&apos;/g;