perl -i.old -pe 's/(?<![a-z])(\w)/uc $1/eg' <FILENAME>