No need for the square brackets:

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