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