$text =~ s/&/&/g;
    $text =~ s/</&lt;/g;