Select Code to Download

# Inserted newlines for legibility of one-liner run under Windows.
perl -MO=Deparse  -e "
...
my($one, undef, undef, undef, undef, undef, $other) = split(' ', $x, 8
+);
my @all = split(' ', $x, 0);
-e syntax OK