Select Code to Download

C:\>perl -E "my @arr=qw(a b c d); my $a; for $a(@arr) {say $a;}"
a
b
...
b
c
d

C:\>perl -e "foreach ($i=0;$i<10;$i++) { print $i }" # NB: '-e' & 'pri
+nt'
0123456789

C:>perl -E "for ($i=0;$i<10;$i++) { say $i }" # Irrelevant differences
+ '-E' & 'say'
0
1
...
7
8
9