my @all = $string =~ /[^_]+/g;