#!perl -plaF
s/. //;$#F/=$&;$_=join$",/.{$#F}/g