use strict;
use warnings;
use Test::Simple tests=>3;

my $kards;
my $bad = 'AKQJT98765432KKKK';
my $card = 'K';

my $string = "\$bad =~ tr/$card//";
ok($string eq '$bad =~ tr/K//', "string = '$string'");

$kards = eval $string;
ok($kards == 5, "Number of K's in $bad is $kards"); 

$kards = eval "\$bad =~ tr/$card//";
ok($kards == 5, "Combined form");