while($s=<$socket>)
		{
		$olds=$next;
		
		$all=0;
		if($s=~/\<td align=\"left\" valign=\"top\" class=\"decorBodyCell\"\>/){$on=1;next;}
		if($s=~/\<\/td\>/){$on=0;next;}
		if($s=~/\<a href=\"\.\.\/\"\>(.*)\<\/a\>\&nbsp\;\&nbsp\;\<a href=\"(.*)\">Вперед/){$all=1;$next=$2;next;}
		if($s=~/\<\/p\>\<\/center\>/){next;}
		if($s=~/\<p\>(<big>){3}\<strong\>(.*)\<\/strong\>(\<\/big\>){3}\<\/p\>/){$name_stat=$2;next;}
		if($s=~/\<p\>\<big\>\<strong\>(.*)\<\/strong\>\<\/big\>\<\/p\>/){$autor_stat=$1;next;}
		if($s=~/\<p\>\<strong\>(.*)\<\/strong\><\/p\>/){next;}
		if($s=~/\<p\>\<img/){next;}
		if($s=~/\<p class=\"textBody\">\<br\>/){next;}
		if($s=~/\<hr/){next;}
		if($s=~/\s\s\s\<\/p\>/){next;}                       

		if($s=~/\<p\>\((.*)\)\<\/p\>/)
			{
			$mail_autor=$1; 
			if(!$mail_autor=~/[a-z_0-9-]@([a-z_0-9-]+\.)/){$mail_autor='';} 
			next;
			}
		
			
			
		#if($olds eq $next){last;}		
		if($on==1){$statya.=$s;}
		
		}
	$statya.="|||"; # obozn page
	}

r = str.match(/(?:operate|operatewall)\s*\x28\s*\d+\s*,\s*(\d+)\s*,\s*(\d+)\s*,\s*[\x22\x27](\w+)[\x22\x27]/i);

if((re=pcre_compile ((char *) pattern, PCRE_CASELESS|PCRE_MULTILINE, &error, &erroffset, NULL))==NULL){
			 printf("Error: %s\nSymbol N%i\nPattern:%s\n",error,erroffset,pattern);
		getchar();
			 exit(1);
			 
      }
	  else
	  {
		  if((pairs=pcre_exec(re,NULL,str,4,0,PCRE_NOTEMPTY,vector,vecsize))<0){ printf("Error! num: %i\n",pairs);}  ....

$id=preg_replace("/\D/","",$_POST['id']);