$s = "I'm a pepper, he's a pepper, you're a pepper, she's a pepper...";
  while( $s =~ /(pepper)/g ) {
    push @peppers, $1;
  }

##</code><code>##

  I'm a pepper, he's a pepper, you're a pepper, she's a pepper...
  ^           ^              ^                ^               ^
  0           1              2                3               4

##</code><code>##

  $s = "Wouldn't you like to be a pepper too?";
  #     ^                               ^
  #     0                               1
  $s =~ /(?=pepper).+like/;

##</code><code>##

print "Spam!!!\n" if
   $text =~ /^To:
              \s*
                "
                  (?!.+Furry Marmot)
                  [^"]*
                " 
              <marmot\@furrytorium\.com>
            /mx;