$data =~ s/(\w+)/ucfirst lc $1/eg;