I think i have got the answer

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