Can I ask you for little more help? The program helped me so much. Thanks for that. Now I need to modify it a bit more. I tried myself but got stuck at one point. Can u help me out?

 
so now I don't want to print the line containing ligand name , rather now i want to count no of lines and want to count amongst those lines, the lines containing H as a 1st character of each row. I successfully counted the lines by using following code

# 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);
}
[download]

 this counts only no of lines. Now, I want while the program is reading code line by line it should check the first character and if it is H the it should count that line and put the count in another variable say count2 or something.
 
 Please help 
Comment on Re^4: reading and working with grow.out files
Download Code