Two ways come to mind immediately:

my (undef, undef, $third) = split ",", $foo;
[download]

or

my $third = (split ",", $foo)[2];
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.