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