perl -i.old -pe 's/(?<=[A-Z])(\w)/lc $1/eg' <FILENAME>