my @contigs = split /(?<=[^N])N++\B/, $sequence{$key};