$kards = -99;
	$bad="AKQJT98765432KKKK";
	$card='K';
	eval {print "eval is testing for $card in $bad \n"; 
		   $kards = $bad =~ tr/$card//; # tried also tr/$card/$card/; same bad result.
		  };
	print "Num of $card in $bad = $kards \n";
	$king = $bad =~ tr/K//;
	print "Num of K in $bad is = $king \n";
=cut	
	Returns the following:
eval is testing for K in AKQJT98765432KKKK 
Num of K in AKQJT98765432KKKK = 0 
Num of K in AKQJT98765432KKKK is = 5 
=end