$count = $var =~ tr/s/s/;