Help for this page

Select Code to Download

Select or download this

print
   map { s{0{2,}}{0}; $_ }
   <DATA>;

Select or download this
```
s/0{2,}/0/, print while <DATA>;
```