$chosencodepoint = $codepoints[int rand @codepoints];

##</code><code>##

$string = pack 'U*', @chosencodepoints;