Select Code to Download

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

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

while ($data =~ m/$pat/gc) {
   my ($auth, $text) = ($1, $2);
...
   }
  printf "%s: %s\n\n" , $auth , $text;
}