foreach (@meinarray) {
		if (/(<Buch>)(.*?)(<\/Buch>)/) {
		print $2."\n"; 
	}