Select Code to Download

use strict;
use warnings;
...
        print "No N found in $str\n";
    }
}

GNNTCGANNTT: Ns found at 2 8
GAATCGNNNTT: One N found at 2
GANNCGNNNNN: Ns found at 0 7