$seqs =~ /^(\>.*(?=\>))/ms;