what should I fill in the 'Condition' field-text and I can't use the 'Record' button since it's blurred.

Dear my friends...

I want to debug my perl script because it produces some wrong "anchor" location in $_.

I am a beginner in using ddd. I read the manual of ddd which I downloaded from its website.

I need to use breakpoint and watchpoint. I want to record the value of each involved variables in iteration below. ddd should stop each time the value of $jmljangkar changes for giving me change to evaluate what my perl-script did.

1.I right-clicked on the line number 126 and chosed the set-breakpoint.
2. I right-clicked-->chosed property;
3. But I don't understand what should I fill in the 'Condition' field-text and I can't use the 'Record' button since it's blurred.

Please tell me how can I do that.

Thank you very much in advance.
====
...
...
  79 @mine_a=("<","a"," ",">");
  80 my $jmljangkar = my $it = my $a_indeks1_tmp = $a = 0;
  81 while($a<$pjg){
  82     $i+=1;
  83     $az=substr($_,$a,1);
  84     if ( lc($az) eq lc($mine_a[$it]) ){
  85         if ($it>=2){
  86             if($mine_a[$it] eq '>'){ $it=3; };
  87         }
  88         switch($it){
  89         case 0  {
  90                 $it+=1;
  91                 $a_indeks1_tmp=$a;
  92                 $i=0;
  93                 }
  94         case 1  {
  95                 if($i==1){
  96                     $it+=1;
  97                     $i=0;
  98                 }else{
  99                     $it=0;
 100                     $a_indeks1_tmp='';
 101                     }
 102                 }
 103         case 2  {
 104                 if($i==1){
 105                     $it+=1;
 106                     $i=0;
 107                 }else{
 108                     $it=0;
 109                     }
 110                 $i=0;
 111                 }
 112         case 3  {
 113                 if (length($a_indeks1_tmp)>0){
 114                     push(@indeks1,$a_indeks1_tmp);
 115                 }else{
 116                     print "I have no clue for the begin of open tag.\n";
 117                     exit;
 118                 }
 119                 if (length($a)>0){
 120                     push(@indeks4,$a);
 121                 }else{
 122                     print "I have no clue for the end of open tag.\n";
 123                     exit;
 124                 }
 125                 $it=0;
 126                 $jmljangkar++;
 127                 $i=0;
 128                 my $nstr=$indeks8[$ia]-$indeks1[$ia]+1;
 129                 print substr($_,my $str1,$nstr);
 130                 
 131                 if($treker==151){
 132                     print "a $a\n";
 133                     print "az $az\n";
 134                     print "mine_b $mine_b[$it]\n";
 135                     print "it $it\n";
 136                     print "i $i\n";
 137                     print "jmljangkar $jmljangkar\n";
 138                 }else{
 139                     $treker+=1;
 140                 }
 141                 
 142                 }
 143         }
 144     }else{
 145         $i=0;
 146     }
 147     $a++;
 148 }
...
...
-- 
Patrik Hasibuan <[email protected]>
Junior Programmer