$string =~ s/</&lt;/g;
$string =~ s/>/&gt;/g;