如何去掉$line最后的换行符号，然后加上一些字符

如何去掉$line最后的换行符号，然后加上一些字符
我想把文件的每一行加上 , end
open F, $file or die $!;
open M, ">$newfile" or die $!;
while (<F>) {
my $line = $_;
$line =$line,",end","\n";
print M $line;
}
close F;
close M;

但是$line最后的换行符号我去不掉，我用 chop($line)，结果整个line都没有了

高手请指教

用 chomp $line.
用 chomp $line

chomp $line 根本好好用啊，
为什么啊？ 高手请指教。

谢谢高手
高手说的是对的，我用错了， chomp $line 把删除以后的line放回 $line, 我在去$line1 = chomp $line结果取的是返回值。不是chomp以后的东西。谢谢。

我不是高手,随便混混啊,哈.
我不是高手,随便混混啊,哈哈.

谦虚谦虚，多多指教。