使用perl替换文本中的字符,直接对原文件进行修改,不会产生临时文件