Well, this is a little overkill for this situation, sometimes

print do{my @temp=split /,/,$foo; $temp[2]},"\n";
[download]

comes in useful:

my $slurped=do{local $/; open my $fh,$file or die "$file:$!"; <$fh>};
[download]

---
demerphq

_{<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...}