Help for this page
Select Code to Download
Select
or
download this
$count{$t1}++
Select
or
download this
my $count=($str2=~ tr/$t1//);