@array = extract_multiple(
    $data."",                                                                              
    [ sub{extract_bracketed($_[0], '()')}, ],
    undef,  
    1       
  );