my $str = "YOSEMITE SAM";
$str =~ s/(\w+)/\u\L$1/g;