Try
print "[$_]:", eval "\$string =~ tr/$_//"; [download]
Note: this may be slower than your original.
In reply to Re: Simple Matching by BrowserUk in thread Simple Matching by rnroot