Help for this page

Select Code to Download


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