如何替换一段文字中最后出现的某个字符？

nees

在网上找了许多例子，好象都是针对单行替换的，碰到有回车换行的文本块就不适用了。

例如下在的文字：

abc,def,ghi,
dfdfdgdg,,fdfdg,gdgdg
dfdfdg
--dfdfdfd,d
dfdf,dfdfdfd,
--dfdfd

需要将上面段落中最后一个逗号去掉成如下结果，请问能用正则式处理吗？
abc,def,ghi,
dfdfdgdg,,fdfdg,gdgdg
dfdfdg
--dfdfdfd,d
dfdf,dfdfdfd
--dfdfd

只是一个红薯

1. while (<DATA>) {
   
2.    s/,$//;
   
3.    say $_;
   
4. }
   
5. 
   
6. __DATA__
   
7. abc,def,ghi,
   
8. dfdfdgdg,,fdfdg,gdgdg
   
9. dfdfdg
   
10. --dfdfdfd,d
    
11. dfdf,dfdfdfd,
    
12. --dfdfd

复制代码

snjlmc

     /\,$/   

dahe_1984

最近去掉最后一个字符特别火？