perl -i -ne 's/(\b\w)/{uc $1}/eg; print;' <FILENAME>