When using an eval STRING; statement, I find it very helpful to build the string separately so that it can be examined with the Perl debugger (see perldebug) or even with a simple print point.

Win8 Strawberry 5.30.3.1 (64)  Sat 09/26/2020 11:37:04
C:\@Work\Perl\monks
>perl
use strict;
use warnings;

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

my $e_string = "$kards = $bad =~ tr/$card//";
# print "e_string: >$e_string< \n";  # for debug

eval $e_string;
print "1: Num of '$card' in $bad is == $kards \n";

my $kings = $bad =~ tr/K//;
print "2: Num of '$card' in $bad is == $kings \n";

__END__
Use of uninitialized value $kards in concatenation (.) or string at - 
+line 8.
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
[download]

Uncomment the print point and the problem with the eval becomes obvious. (Enabling warnings helps too!)

On another topic...

You seem to have been going over code examples as a self-teaching exercise. That's commendable, but it should be pointed out that in practice, there are arguably better ways of handling the "count the occurrences of an arbitrary set of characters in a string" problem. eval is expensive, and it's better to avoid the guillotine when a scalpel will do. A couple of examples (of, I'm sure, many).

Win8 Strawberry 5.30.3.1 (64)  Sat 09/26/2020 12:14:28
C:\@Work\Perl\monks
>perl
use strict;
use warnings;

my $n_found;
my $string = 'AKQJT98765432KKKK';
my $set = 'AQK';

# s/// probably fastest in practice.
my $destroy = $string;  # s/// alters its target
$n_found = $destroy =~ s{ [\Q$set\E] }{}xmsg;
print "s///:  Num of '$set' in '$string' == $n_found \n";

# m// probably a bit slower, use of =()= a bit tricky.
$n_found =()= $string =~ m{ [\Q$set\E] }xmsg;
print "m//:   Num of '$set' in '$string' == $n_found \n";

# tr/// is fastest, but needs expensive eval for arbitrary sets.
$n_found = $string =~ tr/KAQ//;
print "tr///: Num of 'KAQ' in '$string' == $n_found \n";

__END__
s///:  Num of 'AQK' in 'AKQJT98765432KKKK' == 7
m//:   Num of 'AQK' in 'AKQJT98765432KKKK' == 7
tr///: Num of 'KAQ' in 'AKQJT98765432KKKK' == 7
[download]

This code also works under Perl version 5.8.9.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.