perl -lne '$c++ while />/g }{ print $c' fasta-file
# or
perl -lne '$c += () = />/g }{ print $c' fasta-file

##</code><code>##

perl -lne '$c++ if /^>/ }{ print $c' fasta-file