@numbers = qw(zero one two three four five six seven eight nine);
($data = <<End_Line) =~ s/\d/$numbers[$&]/g;
Sarah has 1 apples, 5 plumes and 6 pineapple,
and George has 2 apples, 4 plumes and 1 pineapple.
Together they have 3 apples, 9 plumes and 7 pineapples.
No one has 8 anything.
End_Line

print "$data";
[download]