sub eteb {  
  my $data = shift;
  my $orig = $data;
  my @array = extract_multiple(
    $data,  
    [ sub{extract_tagged($_[0], 'a', 'b', undef,)}, ],
    undef,  
    1       
  );        
  print "data='$data'\n";
  display('eteb1', @array);
  @array = extract_multiple(
    $orig,                                                                              
    [ sub{extract_bracketed($_[0], '()')}, ],
    undef,  
    1       
  );        
  display('eteb2', @array);
}