A perl program to partition barcoded fasta or fastq files