# just delete the first char if it is ^M
perl -pi.bak -e "$i++ || s/^\r//" <filenames>

# delete the entire first line if it starts with ^M
perl -pi.bak -e "$i++ || s/^\r.*\n//" <filenames>