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

##</code><code>##

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