如何替換一段文字中最后出現(xiàn)的某個字符？

nees

在網(wǎng)上找了許多例子，好象都是針對單行替換的，碰到有回車換行的文本塊就不適用了。

例如下在的文字：

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

最近去掉最后一個字符特別火？