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