Select Code to Download

use strict;
use warnings;
...

$tot += $_ for map {++$counter; $wanted{$_}} grep {exists $wanted{$_}}
+ split //, $str;
print "Found $counter letters totaling $tot\n";

Found 9 letters totaling 81