$strg = qq[This has- some- d-a-she-s -in it];
%cnt = ();
@chrs = split('',$strg);
foreach (@chrs) {
  $cnt{$_}++;
}
print qq[$cnt{'-'}\n];