my $len_seq = $str =~ tr/-//c;