my ($self,$tag,$attr) = @_;
  if($tag eq 'body'){
      $self->{search} = 1;
  }