pos $data = 0;
 my $len = length $data;
 while (pos $data < $len) {
     if ( my ($line) = $data =~ m{ \G ( .+  \. xml ) }gcxms ) {
         print "$line\n";
     }
 }