my (undef, $foo) = split / /, $string;