Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...

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

Select or download this

1..3
ok 1 - string = '$bad =~ tr/K//'
ok 2 - Number of K's in AKQJT98765432KKKK is 5
ok 3 - Combined form