$data =~ s/(\w+)/\u\L$1/g;