In list context, a regexp will return the matches. You can use that fact to count the number of matches:

my $string="ARKL---MNRD--SET";
my $count = () = $string =~/-/g;
print $count;
__END__
5
[download]

CU
Robartes-