perl -wle '$_ = "345678"; print "2" . ( /.(?{ print $& })/g )[()]'
3
4
5
6
7
8
25