perl -E"say $_ for 1..100e6" | 
perl -E"while(<>){ $n += length; last if $n > 1024**2; warn qq[$n\n];}"