$tags =~ s/</&lt;/;
$tags =~ s/>/&gt;/;