perl -wle '$_ = "345678"; print ":" . ( /./g )[()]'
#Argument ":" isn't numeric in list slice at -e line 1.
#:3