my $newrecord="";
        my $fn=$Description;
        $fn =~ s/-RET-/<br>/g;
        $fn =~ s/\n/<br>/g;
        $fn =~ s/_/((22&%&%22))/g;          
        $newrecord .= "$fn";
        $Description=$newrecord;