use strict;
use warnings;

my $string = "   ----------  -------------------------  --------  ----  -------------------------  -----  ----  -----------  -----------";

print pos($string), "\n" while $string =~ m/-(?!-)/g;