Select Code to Download

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

    while(/<\?--([^-]*)-([^-]*)-->(.*?)<\/\?--([^-]*)-([^-]*)-->/sg)
    {
...
        $list=$list. "<?--$a-$b-->$c</?--$d-$e-->\n";
        last if ( not defined( $page ));
    }