You would have a larger range of possible numbers with:

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