Select Code to Download

perl -MData::Dumper -e '
$str = "GTGNNTNNG"; 
@nseg = split(/[ATCG]+/,$str); 
print Dumper \@nseg;'

$VAR1 = [
          '',  # Why this extra???
...
          'NN'
        ];