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