sub read_str
{
	if ($_[0] =~ /:$_[1](\d{0,4}):/)
	{return substr($_[0], index($_[0],$_[1])+length($_[1])+length($1)+1, $1)}
	else {return '';}
}

пример:
print read_str($res,'announce');