$counters{$_} = eval "sub { \$_[0] =~ tr/\Q$_\E// }";