my $string = "It's a cat and mouse game.";
$string=join'',map{$_ x rand 3}split//,$string;
print "$string\n";

$string = "It's a cat and mouse game.";
$string=join'',map{$_ x (1 + rand 3)}split//,$string;
print "$string\n";

##</code><code>##

It'ss a caatt  aannoouuss  gaae
It'''sss aa  cccaaattt   and mmmoussseee gggaaammee...