$_ = 'a"b"c"d';
$a = () = /"/g;
[download]

now $a contains exactly amount of "s in the $_. though I suspect there is a better and shorter way