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