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