http://qs321.pair.com?node_id=11122231


in reply to tr operator in eval -- updated

#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11122227 use warnings; my $kards = -99; my $bad="AKQJT98765432KKKK"; my $card='K'; # this next bit works. xtr is just so I can print what eval is eval in +g. my $xtr = "$bad =~ tr/$card//;" ; $kards = eval "\$bad =~ tr/$card//"; # missing \ , no ; needed inside +eval print "xtr kards = $kards from eval cmd : $xtr\n";