Select Code to Download

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

  
     while
     (
...
        4 condition D
       )
     )

 
 while
     (
...
         (condition A) &&
         (condition B)
     )

 
     while
     (
...
        1 (condition A) &&
        2 (condition B)
     )

 
while
   (
...
      ( 2 condition B)

   )