$count = ($string =~ tr/\"//);
print "There are $count [\" ] characters in the string";