I was thinking along similar lines, but using tr// in its count-them mode. $cnt1= $x =~ eval "tr/$y//";

Hmm, the tr doesn't do interpolation. So it trades the @{[ for an eval.