# this next two step works..... 
	$xtr = "$bad =~ tr/$card//;" ;
	$kards = eval "$xtr;";
        print "xtr kards = $kards from eval cmd : $xtr\n";
	#output: xtr kards = 5 from eval cmd : AKQJT98765432KKKK =~ tr/K//;