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