Select Code to Download

while( 
       condition1 && 
...
{ 
  #statements;  
}

  while( 
  1    condition1 && 
...
{ 
  #statements;  
}

open(A,"e:\\a\\a.txt")or die; 
@a=<A>; 
...
  } 
 last if($a[$line]=~/\{/g); 
}

while( 
        (  
...
{ 
  #statements; 
}

while( 
        (  
...
          condition6 
         ) 
     )

while( 
      ( 
...
      6 condition6 
      ) 
     )