Help for this page

Select Code to Download


  1. or download this
    while( $string =~ m/\bstart:(.+?)\bstop:/g ) {
    print "$1\n";
}
  2. or download this
    my $lastmatch = ( $string =~ m/\bstart:(.+?)\bstop:/g )[ -1 ];
  3. or download this
    if( $string =~ m/\bstart:(?!.+?(?:\bstart:))(.+?)\bstop:/ ) {
    print "$1\n";
}