c:\@Work\Perl\monks>perl -wMstrict -le
"foreach (my $i = 2;  $i < 10;  $i += 3) { printf qq{$i }; }  print '';
 for     (my $i = 2;  $i < 10;  $i += 3) { printf qq{$i }; }  print '';
 ;;
 foreach my $i (2 .. 5) { printf qq{$i }; }  print '';
 for     my $i (2 .. 5) { printf qq{$i }; }  print '';
 ;;
 printf qq{$_ } foreach 6 .. 9;  print '';
 printf qq{$_ } for     6 .. 9;  print '';
"
2 5 8
2 5 8
2 3 4 5
2 3 4 5
6 7 8 9
6 7 8 9