Select Code to Download

use strict;
use warnings;
...
my $_hex_text = sprintf '%X' x scalar(@_code_points), @_code_points;
my $_text = pack 'H*', $_hex_text;
print $_text;

use strict;
use warnings;
...

is($_text, $text, 'Restored text');

1..2
ok 1 - Number of Unicode characters
ok 2 - Restored text