my @blocks = do { local $/ = "0000:"; map {chomp;$_} <DATA> };
#$position = tell(DATA);

foreach (@blocks) {
	chomp;
	$_ =~ m/(\d+)/g;
	my $id= $1;
	if ($_ =~m /Suche:T/g) {
		foreach my $record(@records) {
			$xmlID = "ID${id}";
			$elt = $record->att('id');
			if ($elt eq $xmlID) {
				my @cats = $record->descendants('data');
				foreach $cat(@cats) {
					$tag = $cat->latt('tag');
					if ($tag eq $rtc) { 
					$string = $cat->first_child_text('sub');
					}
				}
			}
		} 
	}
	else {
		print "e\n";
	}
}
__DATA__
0000:sf
0002:sff
0003:wqet
Suche:T

0000:sf
0002:sff
0003:wqet
Suche:T

0000:sf
0002:sff
0003:wqet
Suche:T