$str =~ s<([a-z]+ ?)><local $_ = $1; s/$1/\U$&/g; $_>eg;