codepoint2char.pl

#!/usr/bin/perl

#Write a program, codepoints2char.pl, that can take a list of decimal (not hexadecimal) numbers
#and print the Unicode character. Assume UTF-8. Try running it with the following:
#perl codepoint2char.pl 3232 95 3232.


use strict;
use warnings;
use diagnostics;
use feature 'say';

binmode STDOUT, ':utf8';

while ( my $string = shift) {
    say "got $string, unicode: ".chr($string);
}