my $string = 'a' x 10000 . "\N{EURO SIGN}";