my $a = <>;
local $, = ' '; # Put some whitesapce between each number
print unpack("U*", $a), "\n";