# changed the code from line 10 of above written code
while (my $line= <FILE>
{ $ count=0;
if $line=~/$ligand/;
{
$count++;}
}
Print"total no of interaction are $count";
}close (FILE);
}