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