perl -i.bak -pe 's/\r//g' file.pl