Perl and ^M

[jjinno]

I cant for the life of me figure out how to get rid of a ^M in a string that I am parsing.

I have tried:

s/\^M//g;
s/^M//g;
s/\r\n/\n/g;
s/\r//g;

** and yes the ^M is a control char, not just me typin ^ and M. **

Any ideas?