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