Select Code to Download

use strict;
use warnings;
...
'/^N.*(?!00)..$/  failure' => sub { scalar $X =~ /^N.*(?!00)..$/  },
'/^N.*(?!00)..$/  success' => sub { scalar $Y =~ /^N.*(?!00)..$/  },
});

X = Nxxxxxx000
Y = Nxxxxxx001
...
/^N(?!.*00$)/    failure 743994/s   167%
/^N(?!.*00$).*$/ failure 750772/s   170%
/^N.*(?<!00$)$/  success 789866/s   184%

/^N(?!.*00$).*$/  750772/s * 0.01 + 536004/s * 0.99 = 538151.68/s   --
/^N.*(?!00)..$/   278229/s * 0.01 + 540980/s * 0.99 = 538352.49/s   0%
/^N(?!.*00$)/     743994/s * 0.01 + 633900/s * 0.99 = 635000.94/s  18%
/^N.*(?<!00$)$/   330512/s * 0.01 + 789866/s * 0.99 = 785272.46/s  46%