Perl has very useful -p option which read line to $_ and prints $_. So this becomes shorter:

perl -pe 's/\r//'