$str='ABC---DR----EEEEEGGGG-GRE-RED----KKKK---';
$seq_no_dash=$str;
$seq_no_dash=~s/-//g;
$len_seq=length($seq_no_dash);