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

##</code><code>##

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