$string =~ s/(.)/( rand 10 < 1 ) ? '?' : $1/eg;