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