~linux>perl -e '$BEGIN{my @found = ()}; $foo = q|A--B|; while($foo=~m/
+\-/g){push @found,@+}; END{print qq|found at $found[0] to $found[$#fo
+und]|}'
[download]

Prints

found at 2 to 3
[download]