perlquestion Kenin Hi guys.... <p> 1. I am trying to form a sequence with letter DA of width 100.. <p> 2. I want to restrict the occurrence of 'DA' in this 100(characters) to 20%, 30% and so on... <p> i.e <c> DADADDDADDD </c> There are 3 DA's in the string... <p> I want to have control on occurrence of DA and generate sequence randomly for 100 characters <c> #!/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 ; </c> But i am not able to have control on the occurrence of 'DA' <p> It keeps changing randomly with this coding