如何使用regexp匹配变量末尾的\n

Nit*_*esh 2 perl tcl

我把一个文件存储在一个变量中$buffer.有一个"\n"在年底$buffer.我想用空值替换它.我试过了

regexp "\n$" $buffer
Run Code Online (Sandbox Code Playgroud)

不工作.代码在TCL中,但我需要知道如何在Perl或TCL中执行此操作.