if ($item_name eq "Show Link") { $i=0; $temp_token = $p->get_token; while (!(($temp_token->[0] eq "E") && ($temp_token->[1] eq "item"))) { if (($temp_token->[0] eq "S") && ($temp_token->[1] eq "value")) { $temp_token = $p->get_tag("item"); $temp_dcr{$dcr_name}{Location}[$i] = $p->get_trimmed_text("/item"); $i++; } $temp_token = $p->get_token; } $found++; }