$count{$t1}++

##</code><code>##

my $count=($str2=~ tr/$t1//);