my @nums;
push @nums, pos() - 1 while m/-[^-]/g;

##</code><code>##

my @nums;
push @nums, pos() - 1 while m/- /g;

##</code><code>##

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

##</code><code>##

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