print "[$_]:", eval "\$string =~ tr/$_//";