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