/\bN(?!\w*00\b)\w*\b/

##</code><code>##

my $string = q/N553342 N455673 N55788 N44200 NZ31200 NZ3120A/;
my @matches = $string =~ /\bN(?!\w*00\b)\w*\b/g;
print join "\n", @matches;