my $text_orig = "The respondent uses the following products XXX, YYYYYYYYY, ZZZZZZZ around the house and they are considering using QQQQQQQ too. They are particularly impressed with ZZZZZZZ.\n";

my @products = (
   'AAA',
   'BBBBBB',
   'CCCCCC',
   'DDDDDDDD',
   'QQQQQQQ',
   'XXX',      
   'YYYYYYYYY',
   'ZZZZZZZ',
);


for (1..4) {
   my @pot;

   (my $text_new = $text_orig) =~ s/[A-Z]{3,}/
      @pot = @products if not @pot;
      my $pot_idx = int(rand(@pot));
      splice(@pot, $pot_idx, 1)
   /eg;

   print($text_new);
}