如何在Perl中清理打开文件中的输入

open(my $file, "<", "input.txt") or die "Cannot open file: $!";
while (my $line = <$file>) {
  chomp($line); # 清除末尾的换行符
  # 在这里处理输入的每一行
}
close($file);

open(my $file, "<", "input.txt") or die "Cannot open file: $!";
while (my $line = <$file>) {
  $line =~ s/\R//g; # 替换所有换行符为空字符
  # 在这里处理输入的每一行
}
close($file);