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