$_ = '   ----------  -------------------------  --------  ----  -------------------------  -----  ----  -----------  -----------';
$_ .= ' ';
my (@nums, $pos);
push @nums, $pos while $pos = index($_, '- ', $pos) + 1;
print join(' ', @nums);
chop;