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