$dna = "NNNNATCGNNNTCGANNN";
$dna =~ s/^N+//;
$dna =~ s/N+$//;
print "$dna\n"
__END__
ATCGNNNTCGA