Very nice solution japhy,
I was looking for a way to vectorize the checking instead of the for-loop. (otherwise equality has the same cost as xor, when measured in cpu cycles).
How much faster will it be if perl used MMX for that operation?