My bad, I forgot to negate the result:

return not unpack ('N', pack ('C4', split /\./, $i) ^ pack ('C4', spli
+t /\./, $1)) >> 32 - $2;
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print