$ perl -MO=Deparse,-p -e 'map chr hex, @code_points' map(chr(hex($_)), @code_points);