Or perhaps (after chomping if necessary)

print shift @content;
for(@content){print ", $_";}
[download]

chas