在Perl中,如何从文件中删除^ M？

#!/usr/bin/perl

use strict;
use warnings;

# 打开文件
open(my $input_fh, "<", "input.txt") or die "Can't open input.txt for reading: $!";
open(my $output_fh, ">", "output.txt") or die "Can't open output.txt for writing: $!";

# 读取文件内容并替换^M字符
while (my $line = <$input_fh>) {
    $line =~ s/\r//g;
    print $output_fh $line;
}

# 关闭文件
close($input_fh) or die "Can't close input.txt: $!";
close($output_fh) or die "Can't close output.txt: $!";