$value =~ s{&}{&}gso;
        $value =~ s{"}{"}gso;
        $value =~ s{  }{ \ }gso;
        $value =~ s{<}{&lt;}gso;
        $value =~ s{>}{&gt;}gso;
        $value =~ s{\)}{&#41;}gso;
        $value =~ s{\(}{&#40;}gso;
        $value =~ s{\t}{ \&nbsp; \&nbsp; \&nbsp;}gso;
        $value =~ s{\n}{<br>}gso;
        print $value;