my $regex = qr{
     ^          # anchor
     \(         # opening paren
     ([^)]*)    # everything but a closing paren, captured in $1
     \)         # closing paren
     ,(.*)      # the rest, captured in $2
     $
}xs;