Help for this page
Select Code to Download
Select
or
download this
$ perl -MO=Deparse -e '$a = () = split' $a = () = split(" ", $_, 1);