Re^3: How to use regular expression for this?

[QM]

my $result = $pattern ^ $_;

This XORs $pattern and $_ together, and stores it in $result.

my $matches = $result =~ tr/\0//;

This counts the number of matches, and puts that into $matches.