Help for this page
Select Code to Download
Select
or
download this
my @contigs = split /(?<=[^N])N++\B/, $sequence{$key};