perl -i -pe 's/\r//g if $. ==1 && /\r/' <filename>