Select Code to Download

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";

CCCCCC GGGG AAA TTT TTT TTT