DADADDDADDD

##</code><code>##

#!/usr/local/bin/perl
my @chars = ('A','D',);
my $string = join '', map $chars[ rand @chars ], 1 .. 100;
    while ($string =~ /DA/g) { $count++ }
    print "There are $count DA's in the string \n ";
print $string ;