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