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