open (OUTDATA, ">> $vfile2"); 
		open (GETDATA, "$vfile"); 
		my $vfiler0 = 0;
		my $vfiler = 0;
		while(<GETDATA>)
		{
		chomp;
		if(/^\s*$/)
			{
			$vfiler = 0;
			}
		if(/vfiler0/)
			{
			$vfiler = 1;
			}
		if (!$vfiler && m/([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/)
			{
			my $ip=$1;
			print OUTDATA "$ip\n";
			}
		}