perl 语言写出如何替换一个text文本的最后一行。