perl -p -w -e 's/(\w+)/\u\L$1/'