perl -nlE"/^>/ or /^[A-Z]+$/ or say 'Bad FASTA at ', $." theFile.fasta