my $pat     = qr{ .*<author>(.*)<\/author>.*<text>(.*)<\/text }xs;