my @records = ~$seq =~ /(>[^>]+)/sg;