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

##</code><code>##

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

   print "$1\n";
}

##</code><code>##

while ( $data =~ m{ \G ( .+?  \. xml ) }gxms ) {
   print "$1\n";
}

##</code><code>##

for ($data) {
   pos() = 0

   for (;;) {
      /\G ... /xgc && do { ...; next };
      /\G ... /xgc && do { ...; next };
      /\G ... /xgc && do { ...; next };
      last;
}