note
QM
<blockquote><code>
my $result = $pattern ^ $_;
</code></blockquote>
This XORs $pattern and $_ together, and stores it in $result.
<blockquote><code>
my $matches = $result =~ tr/\0//;
</code></blockquote>
This counts the number of matches, and puts that into $matches.
<div class="pmsig"><div class="pmsig-294463">
<p>-QM<br />
--<br />
Quantum Mechanics: The dreams stuff is made of
</div></div>
483426
483449