if ($a eq $location) {
       if($b eq $obj_name)  {
          $c=$page;
          $_=~s/<\?--([^-]*)-([^-]*)-->(.*?)<\/\?--([^-]*)-([^-]*)-->//sg;
       }
    }

##</code><code>##

    while(/<\?--([^-]*)-([^-]*)-->(.*?)<\/\?--([^-]*)-([^-]*)-->/sg)
    {
        ($a,$b,$c,$d,$e) = ($1,$2,$3,$4,$5);

        if ($a eq $location and $b eq $obj_name) {
            $c = $page;
            $page = undef;
        }
        $list=$list. "<?--$a-$b-->$c</?--$d-$e-->\n";
        last if ( not defined( $page ));
    }