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