Select Code to Download

perl -lE "@capitals=(); $,=', '; print scalar(@capitals), $#capitals, 
+$#capitals ? 'Lots' : 'One';
0, -1, Lots
...

perl -lE "@capitals=qw(London Paris); $,=', '; print scalar(@capitals)
+, $#capitals, $#capitals ? 'Lots' : 'One';
2, 1, Lots