my @all = split /_+/, $string;