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