From 65d5ffbb2626389464349077cce77e962ad65206 Mon Sep 17 00:00:00 2001
From: Andres Veidenberg <andres@ebi.ac.uk>
Date: Thu, 2 Mar 2023 00:07:38 +0200
Subject: [PATCH] Support seq ids with brackets

---
 lib/Refget/Fmt/Fasta.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Refget/Fmt/Fasta.pm b/lib/Refget/Fmt/Fasta.pm
index e998dda..48110f7 100644
--- a/lib/Refget/Fmt/Fasta.pm
+++ b/lib/Refget/Fmt/Fasta.pm
@@ -31,7 +31,7 @@ around 'iterate' => sub {
   $self->$orig(sub {
     my ($line) = @_;
     # Look for header lines
-    if($line =~ /^>([a-z0-9_.-]+)\s?(?:(.+))?/i) {
+    if($line =~ /^>([a-z0-9()_.-]+)\s?(?:(.+))?/i) {
       my $local_id = $1;
       my $local_additional = $2 || q{};
       if(! defined $id && $past_first_line) {