textarea 字符转换有关问题 _CGI

textarea 字符转换问题
将textarea的数据插入数据库再取出，本来没什么难的，可是我希望用json传递那些信息的话就会报错，因为json无法解析换行的字符，所以希望在perl上将textarea的字符中所有的换行全部转换为<br>，当然还有很多字符要转换，先做到这个程度吧。
觉得这个问题比较普遍，但网上没有查到perl的解决方法，望老鸟指点。

------解决方案--------------------

HTML code


<html>
<head>
    <title>Regular Expression</title>
    <meta http-equiv="Content-type" content="text/html;charset=gb2312" />
    <style type="text/css">
    <!--
        #ShowResult{
            color:#f00;
            font:12pt arial;
        }
        #title{
            font:14pt arial,verdana,sans-serif;
        }
        
    -->
    </style>
    <script language="javascript">
    <!--
    /*
    // regex tester in JavaScript
    // Rainsome Studio
    // rainsome@126.com
    //2008-7-4 in Shanghai
    */
    function Regex()
    {
        ///*
        if(document.getElementById("txtInput").value=="")
        {
            alert("请输入必要的数据。");
            return;
        }
        //*/
        var str1=escape(document.getElementById("txtInput").value) ;
        var reStr1 =/(?:%0D)?%0A/ig;
        var sResult=str1.replace(reStr1,"%3Cbr%20\/%3E");
        sResult=unescape(sResult);
                alert(sResult);
        document.getElementById("ShowResult").innerHTML ="Result:" + sResult;

        return;

    }
    -->
    </script>
</head>
<body >
    <div >
        <div id="title" >Regular Expression</div>
        <hr />
        <form id="frmRegex"><br />
            <br /><br />
            <div>To Match String:<textarea id="txtInput"></textarea></div><br /><br />
            <div id="ShowResult"></div><br /><br />
            <div><input type="button" onclick="javascript:Regex();" value="Click Here!"></div>
        </form>
    
    </div>
</body>
</html>