my @neu = split(/[ -]|[A-Z]/,$string);