use Inline C;

sub cmp_perl
{
    my ($a, $b) = @_;
    my $c = $a ^ $b;
    my @ret;
    push @ret, pos($c) while $c =~ /[^\0]/g;
    @ret;
}

use Benchmark ':all';

my ($x, $y);
$y = $x = 'A' x 1e6;
substr($y, $_*100, 1) = 'C' for 1..(1e4-1);
timethese(0, {
    perl => sub { cmp_perl($x, $y); },
    C => sub { cmp_c($x, $y); },
});
__END__
__C__
void cmp_c(char *a, char *b)
{
    int i, n;
    Inline_Stack_Vars;
    Inline_Stack_Reset;
    for (i=0, n=0; *a && *b; a++, b++, i++)
        if (*a != *b)
            mXPUSHi(i), n++;
    Inline_Stack_Return(n);
}