perl -le'$_=__________;_ while s/_/print length;""/e' And even better: perl -le'__________=~/^.+(?{print@+})^/'

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;


In reply to Re: TIMTOWTDI/golf - counting backwards by japhy
in thread TIMTOWTDI/golf - counting backwards by Juerd

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":