$_='   ----------  -------------------------  --------  ---
-  -------------------------  -----  ----  -----------  -----------'; 
while( m/-\S.\s|$/g){
  print pos() -1,qq(\n)
}

##</code><code>##

13
40
50
56
83
90
96
109
121