perl -i -pe 'last unless s/\r//g' <filename>