c:\@Work\Perl\monks>perl -wMstrict -le
"for my $qty (0 .. 3) {
   printf qq{you bought $qty item%s today \n}, $qty == 1 ? '' : 's';
   }
"
you bought 0 items today
you bought 1 item today
you bought 2 items today
you bought 3 items today