my @info = split /(?<=[ATGC])N+(?=[ATGC])/, $line;