# show the number of FASTA records in a given FASTA file
perl -0x3E -e '@l=grep/\s/,<>;print "$ARGV contains ".scalar(@l)." records\n"' EXAMPLE.fa