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