Select Code to Download

For p in products-to-replace:
    c = int rand(@total - @chosen)
    For i in the sorted set of already-chosen items:
...
        c++
    Insert c into sorted set
    new{p} = total[c]

my @random = map $_ x (3 + int rand 5), 'A'..'Z';
my $product_re = qr/\b[A-Z]+(?:\s[A-Z]+)*\b/;

...
The respondent uses the following products XXX, YYYYY, and ZZZZZZ arou
+nd the house and they are considering using QQQQQQ, too. They are par
+ticularly impressed with ZZZZZZ.
Joe Smith used EGGO WAFFLES, FROSTED FLAKES, and RICE KRISPIES around 
+the house and he is considering using POST SHREDDED WHEAT too. He is 
+particularly impressed with RICE KRISPIES.
Bob likes CATS, DOGS, and ZEBRAS, but particularly CATS.