Help for this page

Select Code to Download


  1. or download this
    my $string = "It's a cat and mouse game.";
$string =~ s/(.)/$1 x (1 + rand(3))/ges;
...
$string = "It's a cat and mouse game.";
$string =~ s/([A-Za-z])/$1 x (1 + rand(3))/ges;
print "$string\n";
  2. or download this
    IIIt'''s  a  cccat annddd mmoooussee gaammeee...
IIItt'sss aa cccaaattt and mmoouusee ggaame.