$a =~ s/&/&amp;/g; $a =~ s/</&lt;/g; $a =~ s/>/&gt;/g; $a =~ s/"/&quot;/g; $a =~ s/'/&#39;/g;