my @a = split (/\s+/, $foo);