perl -MO=Deparse -e 'split /\s+/' split(/\s+/, $_, 0);