Hi Kenin,

Two things :
1) The right place for this sort of question would be 'seekers of perl wisdom'. PerlMonks discussion is for discussion *about* perlmonks itself.

2) Try to format your message a bit better. Because perlmonks is 'sort of' html (forgive me purists if I'm inaccurate there ;) it has compressed your whole message onto one line. This makes the code pretty hard to read.

For both of the above, you should probably review Understanding and Using PerlMonks & Writeup Formatting Tips

I'm reposting the now so that its easier to discuss :

#!/usr/local/bin/perl 

open CHITIN , ">CHITIN"; 
my @chars = ('A','D',); 
my $string = join '', map $chars rand @chars , 1 .. 100; $den =('DA');
+ 
$count=$DA; 
if ($string =~/$den/) { 
  print "DA was found \n\n"; 
} else { 
  print "DA is not present\n\n\n"; 
} 
print $count; 
print $string;
[download]