while( my $line = <MYFILE> )
{
...
}

##</code><code>##

$Acount = tr/A//;