Select Code to Download

{
    my $r = substr rand, 2;
...
}

s[(.)]{$1 x (1+crand/3)}ge;

# ...
        length $r or ($r = rand) =~ tr/3-9//cd;
# ...

s[(.)]{$1 x crand/3}ge;