my $count= ()= <$fh>;

##</code><code>##

my $count= do { 0 while <$fh>; $. };