$name =~ s/\b(?<!\*)(\w+)/\u\L$1/g;