Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;

my $str='ABC---DR----EEEEEGGGG-GRE-RED----KKKK---';
my $len_seq = () = $str =~ /[^-]/g;

Select or download this
```
perldoc -q count
```