system('cls');

opendir(TEMPDIR,$dir) or die("[-] Error ($!)..");
@FILES=grep(/\.torrent$/i, readdir TEMPDIR);
closedir(TEMPDIR);

for ($i=0;$i<@FILES;) {
	$res='';
         open(DESC, @FILES[$i]);
         while (<DESC>) {$res.= $_;}
         close(DESC);
        $res =~ /:name\d{0,4}:(.*)12:piece/;
	if (-s $1) {print '[+] ';} else {print '[-] ';}
        print $1."\n";
	$i++;
	}

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');