my $result = $pattern ^ $_; #### my $matches = $result =~ tr/\0//;