perl -le 'while () {$a.="x"x(1<<26);}'