my $x = "AAAAA..[10_000_000 long]..";