perl 正则表达式 婚配行结尾

perl 正则表达式 匹配行结尾
我用的$符号，如下：我想在每行的结尾加逗号
   $line=~s/$/,/g;
不知道为何 他同时匹配了 行结尾和行开头。结果如下：
原始文件:
1,2,3
表达式执行后文件
,1,2,3,

不知道什么原因
求指点
[解决办法]
/^(.*)$/$1,/
试试这个，好久不用Perl了，都快忘了。