Select Code to Download

sub eteb {  
  my $data = shift;
...
  );        
  display('eteb2', @array);
}

  @array = extract_multiple(
    $data."",                                                         
+                     
...
    undef,  
    1       
  );

sub eteb {   
  my $data = shift;
...
data='(a)(b)'
eteb1:a)(b
eteb2:(a)(b)