hello everyone..
suppose my motif is TER..
i have a pdb file in whish all the words like header,atom,water,etc are the elements of the array..
 i Want to search how many times TER occurs as the element of the array..

m using the followin code
$b=0;
my($motif1) = 'TER';
for($a=0;$a<$len1;$a++)
{
if($len[$a] =~/$motif1/)
{
$b++;
}
}
print"\n\n";
print $b,"\n";

What is not working in your code? It is better written like so:


my $r = 0;
my $motif1 = 'TER';
for (@array) {
  $r++ if /$motif1/;
}

print "\n\n$r\n";


Which will count occurances of 'TER' but not 'ter', add the "i" option to the end of the regexp to make it case insensitive:


my $r = 0;
my $motif1 = 'TER';
for (@array) {
  $r++ if /$motif1/i;
}

print "\n\n$r\n";

---