unless (($a eq $location) and ($b eq $obj_name)) { 
  $list=$list. "<?--$a-$b-->$c</?--$d-$e-->\n";
}