perl -wle '$_ = "345678"; print ":" . ( /./g )[ [] ]' #Use of uninitialized value in concatenation (.) or string at -e line 1. #: