Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
length $1 >= $threshold && (push @runs, $1) while $string =~ /(A+|C+|G
++|T+)/g;
@runs = sort {length($b) <=> length($a)} @runs;
printf "@runs\n";

Select or download this
```
CCCCCC GGGG AAA TTT TTT TTT
```