Help for this page

Select Code to Download

Select or download this

>perl -lne "$l=1;while (/([-.]*([\w])\2*[-.]*(\2+[-.]*)*)/g){ print sp
+rintf '%d-%d:s',$l,pos,$2;$l=pos()+1}"

Select or download this
```
XXX---YYY
```