my $count = do { my $i; $i++ while <$fh>; $i };

##</code><code>##

my $count = do { () = <$fh>; $. };