$str =~ s/-([a-z])/uc $1/ge;