sub find_gap_ends
{
    local $_ = shift;
    my @gap_end_pos;
    while ( /N(?!N)/g )
    {
        push @gap_end_pos, pos;
    }
    @gap_end_pos
}