Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
perl -p -w -e 's/(\w+)/\u\L$1/'
```