perl -e 'my $filename = shift; $/ = (); open my $fh, q{<}, $filename or die $!; my $file = <$fh> or die $!; $file =~ s{\x0d}{}xmsg; close $fh;open $fh, q{>}, qq{$filename.unix} or die $!; print $fh $file or die $!; close $fh or die $!;' -- dein_filename