$count = ($s ^ ($search x length $s)) =~ tr/\0/\0/