perl -wle '$_ = "345678"; print "2" . ( /./g )[()]'
#25