$string =~ s=(\w)= $1 x (1 - 1/log(rand)) =eg;