Select Code to Download

my @chars = ('A','D');
my $string = join '', map $chars[ rand @chars ], 1 .. 20;
...

print +(0 .. 9) x 5, "\n";
print "$string\n";

'DA' was found at offsets 2 5 7 10
01234567890123456789012345678901234567890123456789
ADDAADADADDAAAAAAAAA