Help for this page

Select Code to Download

Select or download this
```
DADADDDADDD
```

Select or download this

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