while(<MYFILE>)
{
$line=<MYFILE>


	$Acount =($line=~tr/A//); #to count no. of A's in a line

#if I then print $Acount it says 0 even if there are A's in
the line !
}