Select Code to Download

Win8 Strawberry 5.30.3.1 (64)  Sat 09/26/2020 11:37:04
C:\@Work\Perl\monks
>perl
...
Use of uninitialized value $kards in concatenation (.) or string at - 
+line 12.
1: Num of 'K' in AKQJT98765432KKKK is ==
2: Num of 'K' in AKQJT98765432KKKK is == 5

Win8 Strawberry 5.30.3.1 (64)  Sat 09/26/2020 12:14:28
C:\@Work\Perl\monks
...
s///:  Num of 'AQK' in 'AKQJT98765432KKKK' == 7
m//:   Num of 'AQK' in 'AKQJT98765432KKKK' == 7
tr///: Num of 'KAQ' in 'AKQJT98765432KKKK' == 7