#!perl -paF
$"=',';$_=join$/,glob"{@F}"x@F