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