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

##</code><code>##

------------
:Wq
Not an editor command: Wq