Select Code to Download

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

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