$_=<>;$,=$/;s!.!s/\B/,/g,"{$_}"!ge,print glob