perl -E"$x=chr(0); $x x= 100e6; <>; $r = \substr $x, 50e6; <>"