Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"my $s = ('foo', 'bar', 'baz')[1];
...
'bar'
'zap'
'hac'

c:\@Work\Perl>perl -wMstrict -le
"for my $s qw(hic hac hoc) {
...
'hic'
'hac'
'hoc'