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