Add the line:

    my $nCount = ($mask1 =~ tr/N//) + ($mask2 =~ tr/N//);
[download]

as the third line of sub match.