my $string = (' ' x 1000) . 'x' . (' ' x 1000);