my($foo, $bar, $baz, $quux) = split /\s+/, $str;