[0] Perl> $a = 'x'x 1e6;;
[0] Perl> $a x= 6000;;
[0] Perl> print length $a;;
6000000000