Select Code to Download

use strict;
sub score {
...
    # Count nulls
    $vec =~ tr/\0//;
}

        Rate  xor   v1
xor 112734/s   -- -59%
v1  275692/s 145%   --