pos $data = 0;
for (;;) {
   $data =~ m{ \G ( .+?  \. xml ) }gcxms
      or last;

   print "$1\n";
}