>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