perl -d
  DB<1> $_ = "This is list number 12. It contains apples, pears, peaches. Total cost is 5.";
  DB<2> x /(?:It contains\s+|\G)(?:([^,.\s]+)[,.]\s)/g
0  'apples'
1  'pears'
2  'peaches'