what's wrong in systax

[Anshu Anshu]

 22  while (<IF>) {
    23      if (/$LOCTAG/i) {
    24          ($curloc) = /VALUE="([^"]+)"\s*\w*>/i;
    25          $location .= "${curloc}::";
    26      }
    27
    28      if (/$TYPETAG/i) {
    29          ($curtype) = /VALUE="([^"]+)">/i;
    30          $jobtype .= "${curtype}::";
    31      }
    32  }
    33  close(IF);
    34  $location =~ s/::$//;
    35  $jobtype =~ s/::$//;

with Perl 5.6.1

Thanks