my $percent = 10;
my $string = 'A' x 20;

for ( 1 .. $percent / 100 * length $string ) {
    my $pos = int rand length $string;
    substr( $string, $pos, 1 ) = '?';
}