my @a = $text =~ m{<xyz>([^<]*)</xyz>}g;