perl -pi -e 'tr/\r//d' file.pl