$code =~ s/>/>/g;
$code =~ s/</&lt;/g;