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