Select Code to Download

my $string = 'ABC' x 1_000_000;
$string =~ s/(.)/( rand 10 < 1 ) ? '?' : $1/eg;

print $string;