# ungetestet
my ($gesucht) = $text =~ m/xyz(.*)xzy/s;