my @matches = "-$str-" =~ /(?:-[^0-]+)*(?:-0){4,}(?=-)/g;