perl -MData::Dumper -we 'print Dumper [split(/ /,"a b   c")];'