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