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