$string =~ s/(.)/$1 x (1 + rand(3))/egs;