Select Code to Download

my $percent = 10;
my $string = 'A' x 20;
...
    my $pos = int rand length $string;
    substr( $string, $pos, 1 ) = '?';
}