Help for this page
Select Code to Download
Select
or
download this
my @matches = "-$str-" =~ /(?:-[^0-]+)*(?:-0){4,}(?=-)/g;