>c:\progs\perl560\bin\perl -v

This is perl, v5.6.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2001, Larry Wall

Binary build 635 provided by ActiveState Corp. http://www.ActiveState.com
Built 15:34:21 Feb  4 2003

...

>c:\progs\perl560\bin\perl -MO=Deparse -e"for my $s ( qw( a b c ) ) {}"
foreach my $s ('a', 'b', 'c') {
    ();
}
-e syntax OK

>c:\progs\perl560\bin\perl -MO=Terse -e"for my $s ( qw( a b c ) ) {}"
LISTOP (0x184fcc4) leave [1]
    OP (0x184fca4) enter
    COP (0x184fd10) nextstate
    BINOP (0x184fd4c) leaveloop
        LOOP (0x1828b24) enteriter [1]
            OP (0x184ff6c) null [3]
            UNOP (0x184fe9c) null [141]
                OP (0x184fe7c) pushmark
                SVOP (0x184ff10) const  SPECIAL #0 Nullsv
                SVOP (0x184fec8) const  SPECIAL #0 Nullsv
                SVOP (0x184fe48) const  SPECIAL #0 Nullsv
        UNOP (0x184fd74) null
            LOGOP (0x184fd98) and
                OP (0x1828b8c) iter
                LISTOP (0x184fdc0) lineseq
                    OP (0x184fe28) stub
                    OP (0x1828b6c) unstack
                    COP (0x184fdec) nextstate
-e syntax OK

##</code><code>##

>c:\progs\perl561\bin\perl -v

This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2001, Larry Wall

Binary build 635 provided by ActiveState Corp. http://www.ActiveState.com
Built 15:34:21 Feb  4 2003

...

>c:\progs\perl561\bin\perl -MO=Deparse -e"for my $s ( qw( a b c ) ) {}"
foreach my $s ('a', 'b', 'c') {
    ();
}
-e syntax OK

>c:\progs\perl561\bin\perl -MO=Concise -e"for my $s ( qw( a b c ) ) {}"
e  <@> leave[$s:5,7] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 7 -e:1) v ->3
d     <2> leaveloop vK/2 ->e
7        <{> enteriter(next->9 last->d redo->8)[$s:5,7] lK ->b
-           <0> ex-pushmark s ->3
-           <1> ex-list lKPM ->7
3              <0> pushmark sM ->4
4              <$> const(SPECIAL Null)[t2] sM ->5
5              <$> const(SPECIAL Null)[t3] sM ->6
6              <$> const(SPECIAL Null)[t4] sM ->7
-        <1> null vK/1 ->d
c           <|> and(other->8) vK/1 ->d
b              <0> iter s ->c
-              <@> lineseq vK ->-
8                 <0> stub v ->9
9                 <0> unstack v ->a
a                 <;> nextstate(main 7 -e:1) v ->b
-e syntax OK