~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[$#found]|}'