knoppix@Microknoppix:~$ perl -E '
> $str = q{ABC---DR----EEEEEGGGG-GRE-RED----KKKK---};
> $len_seq = $str =~ tr{-}{}c;
> say $len_seq;'
24
knoppix@Microknoppix:~$