perl -le '$string=q[ttc actssat tb];$count=$string=~tr/t//;print $count'
5