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