$ perl -wlne '$x=split'