I've got another one:
$sentence = "I wrote this text to test my fancy word adding function.";
@words = split(" ",$sentence);
srand;
for ($n = 3; $n < scalar(@words)-1; $n += 3)
{
@adds = (' FOO',' BAR', ' MOO');
$words[$n] .= $adds[int rand(@adds)];
}
$it =...