perl -le'$_=__________;_ while s/_/print length;""/e'

##</code><code>##

perl -le'__________=~/^.+(?{print@+})^/'