open(FILE,"content.dat");
   read(FILE,$cat,[7]);
   close(FILE);
   @cat=split(/\n/,$cat);
   $y=scalar(@cat);
   $y--;
   for($x=0;$x<=$y;$x++)
   {
    @hep=split(/<==>/,@cat[$x]);
    @content=split(/./,@hep[2]);
    $z=scalar(@content);
    $z--;
    $tmp31=join("\n",@content);
    open(TMP,">con_$x.txt");
    print TMP $tmp31;
    close TMP;
    for($m=0;$m<=$z;$z++)
    {
     if(@content[$m]=~/$sw/i)
     {
      @content[$m]=~s/$sw/$sw<\/b>/igs;
      $rez.="<a href=http://$site/@hep[0]>@hep[1]</a><br>@content[$m]<br><br>";
      $c++;
     }
    }
   }

       @content[$m]=~s/$sw/$sw<\/b>/igs;