Help for this page

Select Code to Download

Select or download this
```
/\bN(?!\w*00\b)\w*\b/
```

Select or download this

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