$_ = "";
s/\b(\w+)\b/\u\L$1/g;
s/(\w+\s*)$/\U$1/g;