Select Code to Download

pos $data = 0;
my $len = length $data;
...
      print "$1\n";
   }
}

pos $data = 0;
for (;;) {
...

   print "$1\n";
}

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

for ($data) {
   pos() = 0
...
      /\G ... /xgc && do { ...; next };
      last;
}