my $str = "GNNTCGANNTT";
my @char_arr = split (//,$str);
my $slen = length $str;

foreach my $id (0 .. $#char) {
   if ($str[$id] =~ /N/gi) {
     # not sure how to go from here
    }
}