title: fasta: delete sequences after n length
body: <p>I have multiple fasta files with 1000s of seqs in each file of varying length. I would like to  keep only the first 200 (n) bases from each sequence. How can I do this in Perl?</p>