Select Code to Download

use strict;
use warnings;
...
my $string = "   ----------  -------------------------  --------  ----
+  -------------------------  -----  ----  -----------  -----------";

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