Help for this page

Select Code to Download


  1. or download this
    # 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