Select Code to Download

    
    # 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//
+;