Ingo Blechschmidt wrote: > And: > my @ones = gather { take 1 while 1 }; > my $ones = join "", @ones; # does not burn out! > say length $ones; # Inf
s/length/chars/ of course. --Ingo -- Linux, the choice of a GNU | God said: tar xvjf universe.tar.gz - and generation on a dual AMD | the Universe was! -- Thomas Watz Athlon! | <[EMAIL PROTECTED]>