sub binhyphen2 {
    my ($str) = @_;

    my ($first, $rest) = split /-/, $str, 2;

    return $first unless defined $rest;

    my @suffixes = binhyphen2($rest);
    return map { ($first . $_, $first . '-' . $_) } @suffixes;
}