http://www.perlmonks.org?node_id=840593


in reply to Quicker way to compare these 2 strings?

$matches = ($first ^ $second) =~ tr/\0//;