sub ncp { ($_[0] ^ $_[1]) =~ m/\0*/; $+[0]; }