In Perl, how to remove ^M from a file?

Question

I have a script that is appending new fields to an existing CSV, however ^M characters are appearing at the end of the old lines so the new fields end up on a n

Answer 1

To convert DOS style to UNIX style line endings:

for ($line in ) {
   $line =~ s/\r\n$/\n/;
}

Or, to remove UNIX and/or DOS style line endings:

for ($line in ) {
   $line =~ s/\r?\n$//;
}