$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

##</code><code>##

	$kards = -99;
	$bad="AKQJT98765432KKKK";
	$card='K';
	# this next bit works. xtr is just so I can print what eval is eval ing.
	$xtr = "$bad =~ tr/$card//;" ;
	$kards = eval "$bad =~ tr/$card//;";    #<====== Note the ; " ; at the end. This seems required.
        print "xtr kards = $kards from eval cmd : $xtr\n";
	#output: xtr kards = 5 from eval cmd : AKQJT98765432KKKK =~ tr/K//;