in reply to Simple regular expression that isn't simple
Something a bit simpler perhaps:
my @records = ~$seq =~ /(>[^>]+)/sg; [download]
"The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg