perl -wle '$_ = "345678"; print ":" . /./g'