[perl #125813] [UNI] Malformed UTF-8 (string out of bounds) with “say ('a' x 10000).IO.open”

[Samantha McVey via RT]

> Result:
> Malformed UTF-8 at line 1 col 1029
>   in block <unit> at ./test.pl:2