while(<>){
   s/(\w+)/\u\L$1/;
   print;
}

##</code><code>##

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