Select Code to Download

  while ( $text =~ m/<!--start-->(.*?)<--end-->/s ) {
      my $chunk = $1;
      if ( $chunk =~ /<a name="(.+?)"></a>/ ) {
...
          # do something with $chunk
      }
  }