>perl -wMstrict -le
"my $s = 'ab]cd[efthiTj';
 my $count = $s =~ tr/[Tt]/t/;
 print $s;
 print $count;
"
abtcdtefthitj
4