Select Code to Download

$ perl -wE '@x = qw"a b c d e f g h"; say 0+@x; say join ":", grep { d
+efined } @x[4 .. 99]; say 0+@x;'
8
e:f:g:h
100
$