my perl code sampled:
    my $count = 0; 
    foreach my $condition (@conditions) { 
     $count++; 
     my ($open,$close) = $condition =~ /( (?: [(] | \s )* ) (.*) /msx;
     print "$open $count $close"; 
      }