#!/usr/bin/perl
print join(", ", split(//, "123"));