perl -e"$x=chr(0);$x x=512*1024**2; <>;$r=\substr($x,256x1024**2); <>;substr($$r,256x1024**2-1,1)='x'; <>"

##</code><code>##

perl -e"$x=chr(0);$x x=512*1024**2; <>;$r=\substr($x, 256x1024**2); <>;vec($$r,2**31-1,1)=1; <>"