open(A,"e:\\a\\a.txt")or die; 
@a=<A>; 
close(A); 
$count=1; 
for($i=0;$i<scalar@a;$i++) 
{ 
  if($a[$i]=~m/while/g) 
  { 
    $line=$i; 
    until($a[$line]=~/\{/g) 
    { 
       if($a[$line]=~/(.*)[\&&\||]/g){print"$count $a[$line]";$count++;}   
       elsif($a[$line]=~/\(.*\)[\&&\||]/g){print"$count $a[$line]";$count++;}   
       else{print$a[$line];} 
       $line++; 
    } 
  } 
 last if($a[$line]=~/\{/g); 
}